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هل هذا الكتاب قانوني 


ملاحظة: لابد من شراء هذا الكتاب النسخة الإنجليزية من صفحة المؤلف على الأمازون» 
لكي يكون هذا الكتاب قانوني» الترجمة فقط إلى العربية مجاناء لكن الكتاب نفسه يجب شراؤه من 
الأمازون. بعبارة أخرى يجب شراء النسخة الإنجليزية من المؤلف» لابد من توضيح هذا الأمر 
لجميع القراء حتى لا تضيع الحقوق الفكرية للمؤلف. 


هذه الصفحة تركت بيضاء يشكل مقصود 


السلام عليكم ورحمة الله وبركاتهء إلى أعضاء منتدى فيجوال بيسك للعرب وإلى الطلاب العرب 
المحترمون. أحببت أن أضع بين يديكم ترجمة متواضعة لكتاب 
»Visua) basic .N NE 2008 Step by Step‏ فیجوال بيسك دوت نت 2008 خطوة خطوة. 


هذا الكتاب للمؤلف ١50١۷0)ة۳1‏ 1261ءا الذي ألف وشارك في تأليف أكثر من ثلاثين كتابا في 
تقنية المعلومات من ضمنها فيجوال بيسك 6 خطوة خطوة وكذلك فيجوال 2005 خطوة خطوة 
وكتب أخرى عن الأوفس واكس بي وغيرها. 

الكتاب يعتبر مقدمة شاملة للبرمجة باستخدام فيجوال بيسك 2008 بحسب كلام مؤلفه ويحتوى على 
أربعة أجزاء تشمل عشرون فصلا وواحد وستون تمرين برمجي مبسط ومفصل لعمل العديد من 


التطبيقات البرمجية والتي تتوافق مع ويندوز والعديد من متصفحات الانترنت. 


سأحاول أن أكون مترجما مع قليلا من التصرف حتى تتوافق الترجمة مع طريقة فهمنا وسأحاول 


أن أحافظ على ترتيب الأبواب والفصول بحسب ترتيب المؤلف. 
ملاحظات حول عملية الترجمة: 


1- استخدم بعض الأحيان مصطلح الفيجوال بيسك 2008 وبعض الأحيان مصطلح الفيجوال 
8 ولتوضيح اللبس الذي قد يحث عند بعض الإخوة من أن المصطلحين عبارة عن مترادفات› 
أقول لهم الفيجوال 2008 هو عبارة عن بيئة التطوير التي تحتوي على السي شارب والفيجوال 
بيسك والسي بلس بلس وغيرها من لغات البرمجة أما الفيجوال بيسك 2008 فهو لغة البرمجة 
فيجوال بيسك 2008 فقط. 


-٢‏ للعديد من الأسباب أتكلم في الكتاب باسم المؤلف الأصلي للكتاب لترجمة بعض الجمل في 
الكتاب وفي البعض الأخر أتكلم باسمي (المترجم للكتاب). وستجد بعض العبارات بطريقة 


القخاطت ون الار اك كانى اخادت في وبق اقرا 


e‏ تم إهمال بعض الأمور الغير مهمة عند الترجمة وتم تكثيف الترجمة عند الجوانب الهامة 
وإضافة ما يمكن إضافته للترجمة. 


٤‏ ليس لدي الخبرة القوية بالفيجوال دوت نت ولكني رأيت انه من خلال ترجمة مثل هذا 
الكتاب قد ارفع من قدراتي في البرمجة وأتعلمها بطريقة أفضل لذلك فاعذروني في حالة وجود 
بعض الأخطاء. وراسلوني لتعديلها في الكتاب. 

ه- بعض المصطلحات أقوم بنشر المصطلح الأصلي إذا كانت الترجمة ركيكة أو غير متأكد 
منها. 

٦‏ يجب على القارئ القراءة من أكثر من مصدر وعدم الإعتماد على مصدر واحد في 


المطالعةء فهذا الكتاب بالرغم من المعلومات الكثيرة المتوفرة فيه» لكن لابد من الإطلاع على 
المواقع التعليمية والكتب المتخصصة. 


ونبداً إن شاء الله مع الكتاب: 
ما هو فيجوال بيسك 2008 


فيجوال بيسك 2008 هو أداة تطويرية تستخدم لإنتاج التطبيقات والبرامج ويحتوي على العديد من 
الإعدادات والأكواد الجاهزة التي تيسر علينا كتابة الكود وتصميم البرامج التي تعمل تحت منصة 
الويندوز وكذلك البرامج التي تعمل على الانترنت والأجهزة الكفية (أجهزة الجيب). فيجوال بيسك 


يساعد على زيادة الإنتاجية عند تصميم البرامج خاصة البرامج المتعلقة بقواعد البيانات وبرامج 


الانترنت. وهنا ملاحظة أنه عندما تعتاد على استخدام بيئة التطوير الخاصة بالفيجوال 2008 فانك 
ستصبح قادرا على استخدام نفس الأدوات التي تستخدمها في فيجوال بيسك تستطيع أن تستخدمها 
مع فيجوال سي شارب 2008 وكذلك سي بلس بلس 2008 وغيرها من أدوات التطوير المضمنة 
في 2008 .Visual Studio‏ 


نسخ الفيجوال بيسك دوت نت 


بدأت الفيجوال دوت نت في فبراير 2002 ثم نسخة فيجوال دوت نت 2003 في مارس 2003 ثم 
الفيجوال دوت نت 2005 في أواخر 2005 . وبعد العديد من التطويرات التي تمت على لغة 
الفيجوال دوت نت 2005 تم إصدار الفيجوال دوت نت 2008 في بداية عام 2008. ويعتبر 
فيجوال بيسك دوت نت 2008 مربوطا ربطأً وثيقا مع الفيجوال المرئي 2008 والذي يشمل على 
السي شارب 2008 والسي بلس بلس 2008 والعديد من لغات التطوير. 


توجد العديد من نسخ الفيجوال استوديو 2008 وهي Professional ,y Standard Edîti0^‏ 
Edition‏ و Team Suite‏ و .Ex>press Edition‏ هذا الکتاب یتوافق مع جمیع النسخ 
المذكورة أعلاه. وبالرغم من التشابه بين فيجوال بيسك 2005 وفيجوال بيسك 2008 إلا أن هناك 
فروق هامة وجوهرية بين نسخة ال 2005 ونسخة ال 2008 لذلك فيفضل أن تملك نسخة 


الفيجوال بيسك 2008 لتواصل مع هذا الكتاب. 

الانتقال من فيجوال بيسك 6 

كانت فيجوال بيسك 6 هي النسخة التي سبقت فيجوال دوت نت وأصدرت (الفيجوال 6) قبل عشر 
سنوات تقريبا في سبتمبر 1998. لا يزال هناك العديد من المبرمجين الذين يعملون تطبيقاتهم على 


هذه النسخة القديمة ولكنني ألومهم على تعلقهم الشديد بهذه النسخة لان تطوير تطبيق معقد أو 


تطبيق احترافي بهذه اللغة شيئا صعب نوعا ما. 


باستخدام نسخة الفيجوال دوت نت 2008 بإستطاعت المبرمجين تصميم العديد من التطبيقات 
الاحترافية التي تعمل تحت نظام الويندوز وكذلك تصميم مواقع الانترنت بسهولة أكثر من استخدام 
الفيجوال 6» يستطيعون من تصميم التطبيقات التي تنافس التطبيقات المصممة بالسي شارب وبالسي 
بلس سلس وتطبيقات الجافا. وكذلك تعتبر لغة الفيجوال بيسك 2008 أسهل من بقية أدوات التطوير 
الأأخرى المضمنة في فيجوال استوديو 2008 (على الأقل من وجهة نظر المؤلف والمترجم). 


هناك ۷17۲١‏ يقوم بتطوير المشاريع المصممة بالفيجوال 6 إلى فيجوال بيسك 2008. طبعا هذا 
ال W2۲١‏ ليس دقيقا ولا يعمل مع كل المشاريع المصممة بالفيجوال بيسك 6 ولكنه مثالي نوعا 
ما وسوف تعلم (يا مستخدم فيجوال بيسك 6) أن العديد من الأوامر البرمجية والطرق والدوال 
والتصريحات والخصائص التي كنت تستخدمها في فيجوال 6 لا زالت موجودة في فيجوال بيسك 
8. في هذا الكتاب سأقوم بتقديم العديد من الملاحظات لمبرمجين الفيجوال بيسك 6 Ra‏ 
للانتقال إلى الدوت نت. لأني سابقا كنت مبرمج فيجوال بيسك 6 واعرف التغييرات التي حدثت في 
اللغة بين فيجوال بيسك 6 وفيجوال بيسك دوت نت. فلذلك ستعرف خلال قراءة هذا الكتاب العديد 
من الملاحظات بين الفينة والأخرى سأقوم بذكرها كيف تغيرت الإجراءات المنطقية والدوال وكيف 
تستخدم معرفتك بالفيجوال 6 لتصبح مبرمجا ماهرا وخبيرا في لغة الفيجوال بيسك دوت نت 


8 (راجع هذا الموضوع للأخ سامر سلو عن ترقية المشاريع من فيجوال 6 إلى دوت نت 


http://vb4arab.com/vb/showthread. php?t=9932‏ وراجع هذا الموضوع للأخ الفجر الأبيض 


لتطوير كود معين من فيجوال بيسك 6 إلى فيجوال بيسك 2008 
http: //vb4arab.com/vb/showthread. php?t=16724‏ (- 


ونصيحة مني لكل المبرمجين أن يقوموا باستخدام كل ما يقع تحت يديهم من معلومات وخبرة 
برمجية وألا يتعلموا فقط ما كانوا يخططون له فقط فكل ما يقع تحت يديهم يجب أن يتعلموه. فمثلا 


التعامل مع اللوغاريتمات» قواعد البيانات» البرمجة كائنية التوجهء وغيرها من الأمور البرمجيةء 


تعلم مثل هذه الأمور دفعة واحدة يساعد المبرمجين على تصميم التطبيقات الاحترافية والمميزة. 


من أين تبدأً في هذا الكتاب 
هذا الكتاب تم تصميمه ليساعدك في تطوير معرفتك بالفيجوال دوت نت 2008 في العديد من 
الاتجاهات فإذا كنت مبرمج فيجوال 6 أو منتقلا من فيجوال بيسك 2005 أو منتقلا حتى من لغة 


أخرى ستجد في هذا الكتاب ضالتك التي تنشدها ولكن استعين بالجدول التالي لتعرف من أين تبدأً 


مع هذا الكتاب. 
إذا كنت اتبع التالي 
جديد على البرمجة تعلم المهارات الأساسية في فيجوال 2008 وذلك بدراسة 
الفصول من 17-1 في هذا الكتاب. 
قم بالاطلاع على الجزء الرابع ابرمجة قواعد البيانات ومواقع 
الانترنت" إطلاعاً وبحسب رغبتك في المتابعة. 
تريد الانتقال من أقراً من الفصل الأول حتى الرابع» اطلع على الفصول من 5 
فیجوال 2002ء إلى 17 إطلاعا( قراءة بون تحمق). ثم أكمل قراءة الفضبرل 18 الى 
203 أو 2005 20. 
2008 أقراً الفصول: 1ء 4»› 5»› 7ء 8› 13ء 18ء 19ء 20 
تريد الانتقال من أقرا الفصول 1 إلى 4 بتمعن لكي تعرف التطويرات التي 


فيجوال بيسك 6 حدثت في اللغة وفي بيئة تطوير 2008. 

تنبه للملاحظات التي سأضعها خلال صفحات هذا الكتاب 
لمبرمجين الفيجوال 6. 

أقرا الفصول 5 إلى 13 بسرعة لتتعرف على التغيرات التي 
حدثت في اللغة مثلا في استخدام المتغيرات وغيرها من الأمور 
البرمجية وركز على الفصول 5» 6> 9» 12. 

قم بتطبيق ما تعلمته في الفصول 14 إلى 20 لتتعرف على 
المزايا الجديد في فيجوال 2008 في واجهة المستخدم» قواعد البيانات 


وكذلك في تصميم مواقع الانترنت. 


بعد قراءة كل فصل ركز على الخلاصة في أخر كل فصل لتتذكر ما تعلمته. 


قبل أن ندخل في الكتاب ونبداً بالجزء الأول أريد أن أوضح إن هذه الترجمة ما هي إلا جهد 
شخصي (مليء بالأخطاء)ء لنتعاون سويا من اجل تنقيح الترجمة ومراجعتها وبعون الله تعالى 
سأقوم بين الفينة والأخرى باعتماد تعديلاتكم وإضافتها إلى الترجمة. 


وتقبلوا خالص تحياتي»۰۰ 


مروان المفلحي - صنعاء 


الجزء الأول: البداية مع فيجوال بيسك 2008 
ويحتوي علی: 

الفصل الأول: التعرف على بيئة التطوير . 
الفصل الثاني: كتابة برنامجك الأول. 

الفصل الثالت: التعامل مع صناديق الأدوات. 


الفصل الرابع: التعامل مع القوائم والأدوات وصناديق الحوار. 


الفصل الأول: التعرف على بيئة التطوير. 


22 مع نسخة الكتاب يوجد مجموعة من الأمثلة لكننا سنستغني عنهم وسنعيد 
کتابتھم معکم من جدید لیتم شرحهم بشکل مفصل کل تمرین في حینه. 


افتح الفيجوال بيسك دوت نت 2008 


من قائمة إبداً > كافة البرامج < 2008 Microsoft Studio رتëil < Microsoft Studio‏ 
8 إذا كانت هذه هي المرة الأولى لك في فتح البرنامج سوف يتأخر البرنامج لبضع لحظات 
لتركيب الإعدادات الخاصةء سيطلب منك خلال الفتح اختيار اللغة التي تعمل عليها (فيجوال بيسك 


أو سي شارب) اختر فيجول بيسك ليختار لك إعدادات بيئة الفيجوال بيسك. 


عند فتح البرنامج سوف تشاهد بيئة التطوير وتحتوي على العديد من الأدوات والقوائم والمكونات 
(تدعى هذه النافذة في ي بعض الأحيان نافذة الأدوات) سوف تشاهد كذلك صفحة البدء وعليها 


العديد من الوصلات مقالات من ال "50١‏ (مكتبة تعليمات البرنامج) وكذلك خيارات المشروع. 


صفحة البدء تحتوى على العديد من المعلومات والمصادر التي تفيدك خلال تصميم تطبيقاتك› 
وكذلك يوجد مصادر ووصلات لمعلومات على الانترنت تربطك بمجتمع فيجوال بيسك الخارجي. 
في البداية افتح مشروح موجود مسبقا في جهازك لذلك خذ أول مشروع في هذا الكتاب في مجلد 


رقم 001 المرفق مع هذا الكتاب. 


لفتح المشروع موجود مسبقا في جهازك استخدم أسلوب الفتح الموجود في البرنامج مثل الذي 
موجود في وورد 0۲۵ أو اکسل E×c٥1‏ وذلك بالضغط علی ٤‏ ز٥٣۴‏ ۵۸ص0 أو أضغط على 


۲1+0 » بعد الضغط على ا٤‏ #زه۴۲ ١8ص0‏ نبحث عن المشروع الذي نريد أن نفتحه وللتجربة 
مرفق لكم تمرین في مجلد رقم 001 نذهب للیه نبحث عن ملف ۸۲2۳ ۸)۸ ل زئ ۸)۸ انظر 
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ا إذا كانت إعدادات الويندوز عندك تظهر امتداد الملفات فإن امتداد ملف مشاريع 
فیجوال بيسك هو .5)1 


سيقوم بعدها الفيجوال بيسك بتحميل تطبيق المسجد الحرام (الفورم التابع للتطبيق والكود مع 
إعدادات التطبيق وكذلك خصائص التطبيق) ستلاحظ عند اعلي يمين الشاشة u 0٥١‏ )اه؟ 
orerاEx>p‏ والذي من خلاله تستطيع اختيار الفورم الذي تريد أن تعمل عليه إذا كان التطبيق 


الذي تعمل عليه يحتوي على أكثر من تطبيق وفي تطبيق المسجد الحرام الذي نحن بصدده فانه 


يوجد فورم واحد فقط نقوم بالضغط عليه مرتين لفتحة ومعرفة والأكواد التي فيه وكذلك خصائصه. 


9 تأكد من انك تستخدم برنامج 2008 ٥لںا؟‏ )ء۷ لفتح الملفات المرفقة لان 
النسخ القديمة 2002 2003ء 2005 قد لا تفتح التطبيقات المصممة بالفيجوال 
2008 


بعد فتح التطبيق تستطيع أن تقوم ببناءة بواسطة الضغط على ۴5 أو الذهاب إلى وuطه0‏ في 
قائمة البرنامج واختيار ١‏ وط0 ۲ه سيظهر لك التطبيق الذي صممته لك مسبقا اضغط 
على زر إظهار الصورة ستظهر لك صورة المسجد الحرام. قم بإغلاق التطبيق أو بالضغط على 
زر خروج لنعرف أكثر عن هذا التطبيق. 


اذهب إلى ٣oreام×٤‏ utionاS0‏ واختر ۴٠١۲۳1‏ انقر عليها ليظهر لك الفورم الذي يعمل عند 
تشغيل التطبيق سيظهر لك الفورم ولکن مکتوب أعلی منه ٣ٍاءع0]‏ ط۳1.۷١٥۴]‏ فكلمة 
97 تعني انك الآن في مرحلة تصميم واجهة المستخدم التي سيتعامل معها مستخدمو 
برنامجك. هناك شيء هام وهو واجهة الأوامر أو منطقة الكود التي تقوم بكتابة الأوامر فيها أو 
الأكواد (الشفرات البرمجية). لإظهار منطقة الكود اضغط )»اا٣‏ ٤۲آ‏ على الفورم واختار 
View Code‏ أو اضغط )ا٣‏ عاطنام0 على الفورم. عند فتح منطقة الكود ستجد هذا الكود 
في منطقة الكود والذي قد وضعته لك مسبقا: 


Private Sub Button1l_Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button1.Click 

اتظز جي اكد فق االرخة عندها نريت ن تكتن لتا تدك ف منطقة `" 
االتكود. قاتا خككن قك 

لا ان المكتوب باللون الاخضر لا علاقة له بالاوامر البرمجية لكن لغرض ' 
التذكر أو الإاغراقى التعلتمية فققط 
يستخدم هذا الكوة للخروج من تزرناجك 1 
End‏ 
End Sub‏ 


Private Sub Button2_Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button2.Click 

هذا الكو لاظها ر الصورة 1 

PictureBox1.Visible = True 
ERd Süb 


لاحظ أن المكتوب باللون الأخضر لا علاقة له بالكود البرمجي وإنما للتوضيح وللتذكير فقط. 


و اة الكر د وکل الا عه كا 
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إذا تصفحت المجلد الذي ينشاً عند استحداث تطبيق جديد ستجد انه يحتوى على أكثر من ملف (كل فورم 
له ملف الخ) من ضمن هذه الملفات ستجد ملفين احدهما بالامتداد .١)ء‏ والأخر بالامتداد .٠٣م‏ ط۷ الأول 


يعبر عن ال ١٥ا‏ اه5 (تطبيق) والثاني عن ال اء٥زه۴۲‏ (مشروع) 


ستلاحظ أيضا وجود رقم 9 (مصغرة) في أيقونة التطبيق هذا يعني أن هذا التطبيق مصمم الفيجوال 


فالمشرو ع ۴۲١(6 ٣‏ يحتوي على العديد من الملفات الخاصة به لتنفيذ مهمة برمجية معينه أما التطبيق 
ااا فيحتوى على تطبيق واحد أو أكثر من المشاريع المترابطة والمتعلقة ببعضها ببعض. فالمثال 
الذي أوردته لك هو عبارة عن تطبيق يحتوي على مشروع واحد فقط لذلك فإذا فتحت الملف ذو الامتداد 
٠‏ أو الملف ذو الامتداد .ز٠۷5۲‏ فيفتح لك نفس التطبيق. أما في حالة التطبيقات متعددة المشاريع 
فيجب فتح 5)٠.‏ لفتح كافة المشاريع المرتبطة. 

هنا ملاحظه لمبرمجي الفيجوال 6 أن الامتداد 5)١.‏ يساوي الامتداد .۷59 في الفيجوال 6 وكذلك مع إن 


فيجو ال 2008 يستخدم امتداد أخر للملفات يختلف عن فيجوال 2002ء 2003ء 2005 لكن امتدادات 
ملفات 2002ء 2003ء 2005 لازالت تعمل تحت فيجول 2008. 


أدوات الفيجوال بيسك 2008 


هناك العديد من الأدوات التي سوف تراها في فيجوال بيسك 2008 ومن ضمنها المصمم 
Designer‏ › متصفح المشرو ع ٤×)0۲€۲‏ ”utioاSo.‏ نافذة الخصائص SټProperti‏ 
ها۷ صندوق الأدوات ×0 ٠٠١15‏ هناك الكثير من الأدوات التي تتشابه مع الأدوات 


الموجودة في ال ۷0۲١‏ وال )ع٤×ع‏ وهناك العديد من الأدوات سنتكلم عنها لاحقاً كل في وقته. 


32 مايكروسوفت قامت باخفاء الأدوات الناذرة الأستعمال ولكنك يمكنك إظهار الأذاة 


س کے 


التي تحتاجها من ۷1W‏ تم ۳00153۲١‏ واختيار الأداة التي تريد إظهارها. 


تستخدم نافذة الخصائص لتغيير الخصائص والإعدادات للكثير من الأزرار والمكونات الموجودة 
على الفورم. تستطيع تغيير هذه الإعدادات من نافذة الأدوات أو من خلال بعض الكود في خانة 
الكود (الإعدادات المغيرة من خلال نافذة الأدوات تعمل مع التطبيق بداية تشغيله ولكن الإعدادات 
التي من خلال الكود فيتم تغييرها بحسب الكود المضاف خلال فترة تشغيل البرنامج فيمكنك تغيير 


حجم الفورم أو طريقة إظهاره أو اختفاؤه أو لون الخط أو غيرة من الخصائص). 


لنرى ألان نافذة الخصائص الخاصة بالأداة #11اها (طبعاً تظهر بعد الضغط على 5#11ها) 


Label1 System. Windows, Forms, LabE ¥” 
[LEE E = 1: 

| ا |21 

EH Margin 3, O, 3,0 ی‎ 
EH MaximurmSize 1, 0 

El MinimurmSize 0,0 


Modifiers Friend 
E Fadding O, U, U, O 
RightToLeft o 
EH Size 213 


TabIndex: 3 


TextAligan TapLeft 
UsEKormpatibleTı False 
UseMnEemOonic True 


UsewaitCursaor False سے‎ 
Wisible TrUE اا‎ 
Tent 
The text associated with the control, 


لتغيير خاصية معينة في برنامجنا السابق "۸)۸۲ ل آ[ك ]۸ قم بفتح المشروع ثم اظهھر 
الفورم الرئيسي للمشروع بعدها اختار 611(ه 1ا على الفورم ثم اذهب إلى الخصائص 

5ع مه۴ انزل قليلا في نافذة الخصائص ستجد الخاصية ۴٥١٤‏ (كمتال) اختر الزر المقابل 
لها سيفتح لك نافذة صغيرة مقاربة للتي بال ۷0۲١4‏ تختار فيها نوع الخط ومقاسه بعد اختيار 
التعديلات التي تعجبك اختار 0۸ ستلاحظ تغير نوع الخط وحجمه على حسب التغييرات التي 
عملتها في نافذة الخصائص في خاصية الخط. تستطيع كذلك التعديل على العديد من الخصائص 
التابعة للأداة ۵61ا ومن ضمن هذه الخصائص ١0۲50اC‏ والتي تحدد كيف يتحول سهم الماوس 
في حالة مروره فوق ال أعطها وكذلك ال ١٥1هء‏ 10 والتي تحدد مكان ال أا٥طها‏ على 
الفورم وغيرها من الخصائص. عندما نختار اللييل )6٥ها‏ ستلاحظ صعوبة إمكانية تغيير مساحته 
(طوله وعرضه) على الفورم وعليه فيجب علينا أن نذهب إلى نافذة الخصائص ونضبط الخاصية 


.False yle AutoSize 


نعود للملاحظة التي تكلمنا عنها سابقا وهي إمكانية التعديل على خصائص أي أداه خلال مرحلة 


تنفيذ البرنامج وذلك من خلال الكود: 


انقر على زر 0١2‏ نا8 والذي هو رز إظهار الصورة نقرتين )٤1)٣-ع‏ )اه0 ليظهر لك مكان 
الفورم الخاص بالنقر على الزر 810١2‏ ثم قم بإضافة هذا الكود: 


هذا #الكوة لتر خفاتضن اللححل `" 

فكةو., .القفت يل اتون الكاام االلوجوف خالاكل ' 
Label1l.ForeColor = Color.Blue‏ 

هك اكرون اقفر الكاخة الو خوك اخاالالفتل "' 
"تم إظهار الصورزة المطلويa"‏ = Labe11. 1ex‏ 


لاحظ أن السطر الأول والثاني والرابع لا علاقة لهم بالتنفيذ أو لا علاقة لهم بالأوامر لأنهم قد 
لزز 


وعلية فان كل كود تسبقه ' فان الكون يرجع كلام لا علاقة له بالأوامر البرمجية وإنما فقط لتذكير 
المبرمجين عندما يريدون مراجعة الكود لاحقا. نعود للكود أعلاه السطر الثالث عبارة عن أمر 
لتغيير الخط المكتوب بداخل الليبل إلى اللون الأزرق. أما السطر الأخير فهو لتغيير الكلام الموجود 
بداخل الليبل إلى 'تم إظهار الصورة المطلوبة"' 


يوجد طريقتين لعرض البنود في نافذة الخصائص الطريقة الأولى )هم2 م|٠A‏ 
وتقوم بترتيب البنود ۸-7 والثانية Qأ0۲76 K8‏ وتقوم بترتيب البنود في نافذة 
الان گی غات ع حب ال فا بها تحت الف ا كنت ت 
في فيجو ال بيسك فالأفضل عرض البنود كمجموعات. 


لتغيير مكان نافذة الخصائص إلى مكان أخر في بيئة التطوير أو سحب أي أداه من الأدوات 
البرمجية من مكان إلى أخر عليك القيام بالتالي : قم بعمل )1)٣-۸آR‏ على أعلى نافذة 
الخصائص تم اختار احد الخيارات الخمسة : 


Floating 


Dockable 


Tapped 
Document 


Auto Hide 


Hide 


حاول تطبيق الثاني والرابع أكثر من مرة في أكثر من جهة من بيئة التطوير لكي تفهمهما بطريقة صحيحة. 


مطفى: وتكون النافذة كنافذة مطفيه تأخذها من مكان إلى أخرء لكنها تشكل نوعا من الازدحام. 


قابل للرسو: بحيث يمكنه من الرسو (كالسفينة) في الأربع الجهات على الشاشة (يمينء شمالء 
فوق» تحت) وهو الخيار المفضل ويأتي افتراضي مع الفيجوال بيسك. اختر هذا الخيار ثم حاول 
تغيير مكان نافذة الخصائص ماذا تلاحظ: تلاحظ ظهور أربعة أسهم في الأربع الجهات في بيئة 
التطوير اختر أي واحد منهم تجد انتقال نافذة الخصائص إلى نفس الجهة. 

نموذج التاب: عندما تنتقل من الواجهة التصميمية للفورم إلى واجهة الكود فأنت تستخدم خيار 
التاب 


الإخفاء الأوتوماتيكي: يتم إخفاء الأدوات التي لا تستخدمها أوتوماتيكيا وعندما تقترب منها أو 


من مكانها فإنها تظهر . 


مخفي: ويتم إخفاء أشرطة الأدوات التي لا تحتاجها ولا تظهر إلا بعد اختيار إظهار لها. 


قد تقوم بالعديد من الإعدادات في أشرطة الأدوات والكثير من التعديلات التي قد 

E‏ تحتاجها إذا انتقلت إلى جهاز أخر»ء فيجوال 2008 يقوم بتصدير الإعدادات إلى ملف 
معين يمكنك أن تنقله بواسطة الفلاش أو أي من وسائط النقل إلى أي جهاز أخر 
وتقوم باستيراد الإعدادات. وللقيام بذلك اذهب إلى 4 Tools < Import‏ 
Export Setting‏ نم اتبع بقية التعليمات لتصدير الإعدادات أو استیرادھا إلى أو 
من ملف معين. إذا كنت قد تلاعبت في الإعدادات بطريقة غير صحيحة فيمكنك 
استعادة الإعدادات الأصılة‏ بlختيlaر .Reset All Settings‏ 


التنقل بين الملفات المفتوحة والأدوات البرمجية كنافذة الأدوات وبين الفورم الرئيسي للتطبيق الذي 


DDD ص‎ 
| 
| 


Active Tool Windows Active Files 


1 FF Properties EE] Form1:vb [Design] دسا‎ 0 
أ‎ E Pending Lheckins 8) Farm wb Private Sub Burton? ÇIIGkKIBFTaL aerder la 3 


Dala SOUrZES‏ ا 


را 
End‏ ل e‏ 
ly Error List ta Ain‏ 

e Tonl bi Trivare 3th Hıccerê _ Tltakiyal sender ia 3| 
چ‎ salution Explûrer tieturetot1 iat a 


Lambe, Foreteler = Grier. Blua 
"از شهار انبورة المسنرب“ - ة٣ 11 جا‎ 
Tat fin 
ei 


Eha Insan 


ZA pocuments and SettingstAdministrator{pesktopiwbsba OO TAlMasjid AlharamiûlMasjid Alhararmi Form. Yb 


استمر بالضغط على ٤٣)‏ وارفع عن ط۲4 وأرجعها من جديد تلاحظ سهولة التنقل بين الأدوات 
والفورمات في حالة وجود أكثر من فورم. وبينما أنت ضاغط على )١1‏ اضغط الأسهم في 
الكيبورد للتنقل بين الأدوات المفتوحة والملفات المفتوحةء وكذلك تستطيع اختيار العنصر المراد 
اختياره بواسطة الماورس خلال الضغط على .))٣)‏ 


تستطيع التنقل بين الأدوات في فيجوال 2008 بواسطة الضغط على ۴7+)۸. 


إضافة ۴ا5 إلى ط۵٣+ا٣‏ أو إلى ۸1+۴7 يجعل الحركة عكسية (من الخلف 
إلى الأمام. أي من العنصر الأخير إلى الأول. 


فتح صفحة انترنت من خلال بيئة التطوير: 

تستطيع فتح صفحة انترنت من خلال بيئة التطوير لان فتح المتصفح ٣٤١‏ ٥0)م×ع‏ أو 
الفايرفوكس بدون الحاجة للخروج من بيئة التطوير من خلال الأتي: 

View > Other Windows > Web Browser 

أو بضغط الاختصار Ctr|+A|)+R‏ 


طبعا يقوم بإظهار متصفح بطريقة ل١#ممه۲‏ ويمكنك تغيير ھا إلى Dockable ڍi Floating‏ 
أو حسب ما تشاء بواسطة 8۸٤-٣)‏ أعلى النافذة ثم اختر ما تشاء. 


52 تستطيع تغيير الصفحة الافتراضية في المتصفح الذي يظهر في بيئة التطوير إلى 
: الصفحة التي تريدها. من القوائم التابعة لبيئة التطوير : 


Options‏ < sاro0‏ > ثم اختر h0W A) Options‏ ثم آذھب إلی 
Environment‏ من خلالھا اختر Br0W€۲‏ ۷€ ثم قم بتغییر النص تحت 


Page‏ مH0m‏ إلى الصفحة التي تريدها. 


الحضرل حل امات 


لا يخفى أهمية التعليمات التي قد نحتاجها خلال عملية تصميم تطبيق معين» فحتى المبرمجين 
المحترفين يحتاجون لبعض التعليمات لتنفيذ بعض المهام الصعبة. وعليه قد وفرت مايكروسوفت 


مكتبة التعليمات ال ۸50١‏ (طبعاً متوفرة باللغة الانجليزية) وهي مكتبة كبيرة جدا وهائلة وفيها 


العديد من المعلومات التي تغني عن البحث هنا وهناك» وتوجد هذه المكتبة تحت قائمة )ع۳ 
المتوفرة ضمن بيئة التطوير ولكن قد تحتاج لتعليمات أخرى من مصادر خارجية عبر الانترنت 
عبر صفحات ال SDN Onاine, MSDN news groups‏ والعديد من الصفحات والمواقع 


التعليمية المدعومة من شركة مايكروسوفت والتي تدعى CodeZone C0" UNitY‏ . 


ما عليك إلا أن تضبط التعليمات الخاصة ببرنامج الفيجوال 2008 ليتقبل التعليمات من الانترنت 
(إذا كان لديك خط انترنت) ومن المصادر المحلية (التعليمات المتوفرة في ال ١50١‏ المحلية) 


اذهب إلى ماع1 ثم | 00 10W‏ سيقوم بفتح نافذة التعليمات الخاصة بالفيجوال 2008 اذهب إلى 
r005‏ ثم Options‏ سیفتح نافذۃ اختر منھا Online ۃۂ¦ژî Help‏ 


Uptions 

E Environment when loading Help content 

1: Help O Try online first, then local من الاترنت اول ثم صن السليمات الدجلية‎ 
tener al (®) Try local first, then onlin  تنتنالا من الصصاذر الصحلية ثم من‎ 
O Try local only, nok online من الصصاذر الدجلية فقط‎ 


International Settings 
Keyboard Search these providers: Lodezaone Zaommunity: 


E EEE Download Prowider List 
وم‎ 


SDN Online 
Lodezone Community 
iJESkiDns 


Read the privacy statement... 


نختار نوع التعليمات التي نريد أن نحصل عليهاء انظر اخترت الخيار الأوسط )هما إ٣‏ 


ineاon fist, then‏ وهو البحث في التعليمات المحلية أولاً (لان الانترنت عندي ضعيف) وإذا 


لم يوجد يتم البحث في التعليمات التي في الانترنت طبعا الأفضل هو جعل البحث في الانترنت 
أولا. قم باختيار طريقة الوصول للتعليمات التي تريدها. 

إضافة التعليمات الهامة للمفضلة: 

في حالة هناك تعليمات هامة وجدتها في مركز الت لتعليمات وتريد أن تحتفظ بها حتى لا تبحث عنها 
لتجدها بصعوبة فيجوال 8 يوفر لك خاصية الإضافة للمفضلة نفس التي موجودة في 


Explorer‏ ternetما‏ فيمكنك إضافة أي تعليمات هامة للمفضلة والرجوع إليها لاحقاً: 


File Edit View Tools Window Help 
O Bark ا‎ ê A | O HowDol > O search j Index # Contents Help Faworites 0 2 ا‎ n5 Forums Ã 


e 
کو‎ 


الاضاقة للمفضلة 


بالإضافة إلى المقالات الهامة التي تستطيع أن تحتفظ بها في المفضلة تستطيع أن تحتفظ بنتائج 
البحث الهامة في المفضلة أيضا. 


كيفية استعمال التعليمات: 


إذا أردت الحصول على قم بعمل 
معلومات 


مرتبة بواسطة مهمة البرمجة اختر How Do | û Hep‏ 


عن الميزة أو الأوامر التي | lختر Dynamic Help ۃi Help‏ 
ما اا 


Content ۃء؛ڌë‎ Help رتخl عن مواضيع‎ 


بينما أنت تعمل تحرير للكود ٠‏ اضغط الأمر الذي تريد معرفة معلومات عنه ثم اضغط ۴1 


بينما أنت في صناديق الحوار | اضغط زر التعليمات (علامة الاستفهام) (مثل صناديق الحوار 
التي تظهر عندما تختار ئأاھه ۲آ ڑڈ¦۾ۂم (Options‏ 


EEE‏ تحت قائمة م1٥1‏ اختر 54۲٣۸‏ تم اكتب الكلمة التي تريد 
البحث عنها ثم قم بعملية الفلتره للنتائج باختيار لغة الفيجوال 


دد ك وغيرها من طرق الفلتره حسب الحاجة. 
بالبحث في الائترنت من laئnة Help‏ |ختر MSDN Forums‏ 


التواصل مع مايكروسوفت من قائnمة Technical Support رتخl Help‏ 


إعدادات هامة يجب التعرف عليها 

قبل البدء في كتابة برنامجك الأول تبقى عليك معرفة بعض الإعدادات الهامة في الفيجوال بيسك 
8 عن طريقة حفظ التطبيقات التي تقوم ببرمجتها وكذلك عن خيارات التعريفات والأخطاء: 
اذهب إلى کام٥٣‏ تم اختر ns‏ tioم0‏ ومنھا Projects and Soاu tons‏ نم اختر 
اع : تأكد من انه ليس مؤشر على حفظ المشاريع الجديدة لحظة إنشائها لتكون النافذة 


كالتالي: (هذا سيوفر عليك بعض من الوقت بدلا من حفظ المشروع من أول لحظة) 


VÎ Always show Error List if build finishes with errors 
[Yl Track Active terî in Solution Explorêr 


I Show advanced build configurations 


[ [Prompt for symbolic renaming when renaming files 


FI Always show solution 

[] Savê new projects when created حخفظ المشاربع الحديدة لخظة إنشانها‎ 
[¥] Warn user whenthe project location îs not trusted 

[Show Output window when build starts 


Visual Studio projects location: 


C\Users\Marwan\Documents\Wisual Studio 20081P rojects 


Visual Studio user project templates location: 


CANUserst Marwan DocumentsWisual Studio 2008\Tem plates\P raj ectTermplat 5 


EU SEBEL E EEE HEEE 


CAUsers\ Marwan Document tVisual Studio 2008\Tem plates\ltemTemplates | 


Environment 
Projects and Solutions 
General 
Build and Run 
VB Defaults 
VC++ Directories 
VCr+ Project Settings 
Source Control 
Text Editor 
Database Tools 
Debugging 
Device Tools 
HTML Designer 
Office Tools 
Est Tools 
ext Templating 
Windows Forms Designer 
Workflow Designer 


Show all settings 


بعد الاختيار السابق هناك خيار هام» يتعلق بال ٣هاآم"0)‏ أو المترجم إلى لغة الجهاز» اختر 
ئ ۷8B Def‏ سيظهر لديك أربعة خيارات كالشاشة التالية: 


Binary 


Default project settings: 
Option Explicit: 

Option Strict: 

Option Compare: 


Option Infer: 


[» Environment 
4 Projects and Solutions 
General 
Build and Run 
| VE Defaults | 
VC++ Directories 
VC++ Project Settings 
Source Control 
|» Text Editor 
[ Database Tools 
Debugging 
Device Tools 
p> HTML Designer 
p> Office Tools 
Test Tools 
[: Text Templating 
p Windows Forms Designer 
[> Workflow Designer 


Show all settings 


سوف يتم شرح الأربع الخيارات بالتفصيل في الفصول اللاحقةء لا بد من ضبط الخيارات كالأتي: 


.0ption Explicit : On, Option Strict: Off‏ تضیت ااicامEx pti‏ على الخیار 
يلزمك بتعريف المتغيرات قبل استخدامها في التطبيق وهذه الميزة هامة جدا حتى لا ننسى من 
تعريف المتغير ونقوم ببناء التطبيق وفية أخطاء. 0۴۴ t0 S٣١٤:‏ م0 يسمح للمتغيرات 
والكائنات عديدة الأنواع أن تتجمع بنوع واحد في حالات خاصة (كأن يتم تعريف رقم على انه 
متغير نصي بدون أخطاء) هذه ليست عادة حميدة في البرمجة ولكن في حالات خاصة قد تستلزم 
الضرورة القيام بذلك. سنعرف الكثير عن ١٥a۲م ٤0۳"‏ ١٥ام0‏ في الفصل الثالت عشر. أما 
بالنسبة ل 0p)[0١ |١۴۴١‏ فتعتبر خاصية جديدة في فيجوال بيسك 2008 فإذا ضبطت ١10)م0‏ 
Strict‏ على 0۴۴ و ضبطت ١٤۴٣ا‏ ١ti0م‏ 0 علی 0۸ وعرفت متغییرات بدون تحدید نوعیة 
البيانات التي تمتلها هذه البيانات (فيجوال بيسك سوف يقوم بالتفكير لتحديد نوعية البيانات) سوف 
تعرف أكثر عن هذه الميزة في الفصل الخامس. 

بشکل عام انصحك بان تضبط ٥۸ ۱٣۴۴١‏ ام0 علی 0f‏ لتنجب النتائج الغير متوقعة خلال تنفيذ 
البرنامج بسبب المتغيرات. 


الخلاصة: (بعد هذه الخلاصة سننتقل إلى الفصل الثاني) 

من اجل أن قم بالتالي 

< Start > All Programs > Microsoft Visual Studio 2008 (¦ 2008 تفتح الفيجوال‎ 
.Microsoft Visual Studio 2008 ثم اختر الأيقونة‎ 

فتح مشروع موجود بعد فتح الفیجوال 2008 تحت قائمة ٥ا۴‏ اختر ectزہPr Open‏ أو قد 
ا تجد اسم المشروع على القائمة الرئيسية لآخر المشاريع المفتوحة فاختاره. 
تنفیذ البرنامج تحویله | من قائمة وuطع‏ اختر وہاووuطم0 Start‏ أو ضغط علی ۴5 


إلى ير نامج exe‏ 


التنقل بين أدوات 


التطوير 


تعديل طريقة الحصول 
على التعليمات 


تعديل بيئة التطوير 
ا 
فيجوال بيسك 


إغلاق الفيجوال 2008 


اختر المادة المراد تغيير خصائصها (حددها على الفورم) ثم اذهب إلى نافذة 


الخصائص واختر الخاصية التي تريد أن تغيرها ثم غيرها. 


بواسطة الضغط على ١|١۵٥‏ تم انتقل بينها بتكرار الضغط على اجا 
أو تنقل بالأسهم بين الملفات المفتوحة وأدوات التطوير. وتستطيع اختار المادة 
المعنية بواسطة الماوس خلال الضغط على ط۵ C٣)+۲‏ 


بالضغط على ۸+۴7 للتنقل بینها أو 5۸1۴+۴7+()۸ للتنقل بطريقة 


من قائمة کا۲ اختر ۸۶ pt10مO‏ 


من قائمة ا٥٥۲‏ اختر and Export Settings‏ mportا‏ نم اختر 
Save my current pعi pi „JIتلl مji Reset All Settings‏ 

ئ ااtع‏ ثم التالي. Îخıر|‏ |ختڙ Visual Basic Developments‏ 
ett‏ وثم زر ۶۸ا٣۴‏ ثم اختر إغلاق. 

من قائمة امه اختر ١١0آام0‏ ثم قم بتعديل خيارات بيئة التطوير على 
حسب المجموعات المذكورة (لتعديل خيارات المشاريع اذهب إلى 6٥٣٥۲2۵1‏ 
تحت خیار ۸٥ا‏ ں‌)اه؟ A٣۵‏ ءاععزه۴۲ لتعديل خيارات المترجم إلى لغة 


الالة ال rعاmpi‏ تع اذهب إلى ۷8B De۴auا) ts‏ تحت نفس المجموعة) 


تحت قائمة ۴)٥‏ اختر ځExi‏ 


الفصل الثاني: كتابة برنامجك الأول: 


تعرفت في الفصل الأول على بيئة التطوير والتعامل مع الأدوات البرمجية والقوائم التابعة للفيجوال 
وتغيير الإعدادات. في هذا الفصل ستقوم بكتابة برنامجك الأول. علينا أن نعرف أولا إن هناك 
نوعين من البرامج النوع الأول ۴02"5 dع8as-sس0ل” W1‏ البرامج التي تعمل تحت 
منصة الويندوز النوع الثاني ۴5-8645٥۴4 ۴۲١١۲4۳١5١‏ البرامج التي تعمل على سيرفرات 
الانترنت. سنتعرف هنا على البرامج التي تعمل تحت منصة نظام الويندوز وستكتب برنامجك 
الأول ليعمل تحت بيئة ويندوز. البرنامج الذي سنقوم بكتابته هو برنامج يعتمد على توليد الأرقام 
العشوائية (توليد الأرقام العشوائية قد تحتاجه للعديد من المهام البرمجية) حتى إذا قام بتوليد رقم 
معين وليكن الرقم 5 أو 7 يقوم البرنامج بإظهار جملة معينة أو صورة. قم بفتح الفيجوال 2008. 
من قائمة ۵ا۴ اختر ا عزه۴۲ "eW‏ أو اضغط ۲1+١‏ سيفتح لك نافذة لاختيار لغة البرمجة 
التي تريد أن تصنع بها برنامجك اختر الفيجوال بيسك ٤أكه8‏ )هداء۷ ثم اختر من القائمة اليمنى 
Windows Forms Application‏ عند خانة N۳8‏ في الأسفل اكتب اسم لبرنامجك ولیکن 


هذا الاسم :A۲r¶a۳‏ 
تستطيع إنشاء مشرو ع جديد بالنقر على كلمة )ز٥۴۲‏ مقابل ع2tعC‏ 


Recent Projects 


E Arqam 

EÛ Tyrcormpaniy 
Almast Alharam 
ZA} Processsamples 
BL Browser 

El copyFolders 


Open: Project, |Web Site. 
Lreake: Projeck,;, | web Site, 


في حالة فتح مشروع جديد ستظهر لك نافذة الخيارات التالية: 


Hew Project 


م 
EE)‏ د 3,5 Project types! Teriplatês: NET Framewûrk‏ 
sa Basil Yisual Studio installed templates 2 E 0 1‏ ا 


i. Windows METFramework 3:5 


Web E 
Smart Device i= 1E: شت‎ 


Office Windows WPF‏ ك 
Databasê Forma i .. Applizatiîn Sêrvice Ap... Appligatinn‏ -: 


i. Reporting 
VE e 


کک N‏ ص 
u N EF @ e‏ 


i i WorkFloin WPF Browser Lonsnalê Excel Z#ODF Gutlook ZOD WCF Service 
#1: Othêr Languages Application Application Workbook Add-in Application 
E: other Project Types : ۲ 
Test Projects E 8 
=5 1 
Word ZOU Windays 
Document Forms Conky, 


û projet for rreating: ãn application witha Windûws user intêrfare NET Framewark. 3,5) 


wiridowsûpplication 1 


تستطيع برمجة المشروع بحيث يعمل تحت .2.0 Net Framework‏ أو 3.0 أو 3.5 لکن إذا 
اخترت لمشروعك العمل تحت الفريم ورك نسخة رقم 2.0 لن تستفيد من الخيارات التي تقدمها 
النسخة الحديثة 3.5 فسيقوم فيجوال بيسك 2008 بإخفاء الخيارات الحديثة المتوفرة فقط في الفريم 
ورك الحديثة. وعلية فالأفضل أن تستخدم الفريم ورك رقم 3.5 ولكن في حالات معينة قد تضطر 
لاستخدام نسخ الفريم ورك القديمة فليكن هذا في حسبانك (ستجد العديد من التفصيل حول الدوت 
نت فريم ورك في الفصل الخامس من هذا الكتاب). ستلاحظ من النافذة أعلاه إمكانية اختيار لغات 
أخرى غير الفيجوال بيسك متل ال #٤‏ وغيرها من اللغات المتوفرة تحت بيئة الفيجوال نت 
2008. 


بعد إضافة البرنامج اذهب ليسار الشاشة عند قائمة على اليسار يوجد صندوق الأدوات ×0ط)اهه] 
هذا الصندوق يحتوي على كل الأدوات التي تحتاجها أو المضافات التي تحتاجها لبرنامجك فيمكنك 


إضافة زار وصناديق نص وغيرها من المكونات التي تجعل مستخدم برنامجك يتفاعل معها: فمتلا 


يقوم بالضغط على زر معين ليظهر له تاريخ اليوم أو نتيجة عملية حسابية أو غيرها. انظر هذا 


صندوق الأدوات: 


Toolbar 


| i* #ll Windoiis Forms کک‎ 
| 5 Eğnimon Eöontrolş 


| Button 
LhecEBox 
E CheckedtistEox 
E ComboBox 
E DateTimePicker 
اعا کر‎ 
ãÃ LinkLabel 
ListBox 


33 ListView 


l#-| MaskedTextBox سے‎ 
EEA 


la Manthlalendar 


i) NatifyIEnn 

HE: HurmericlJpDomin 

2 Picture Bii# 

wı I ProgressBar 

{@ RadioButton 

8 RichTextEox 

[abl TextBoie 

i TaalTip 

TrEEYiEWY‏ ا 

| ER WebEBfowser 
= EonEainérs 
kK Painter 


™ BroupBEx# 


E 
i i Panel 


| 
88 SplitEonEainer 
TT Tabontral 


E 


نختار من صندوق الأدوات التالي: 


عدد اثنین أزار ۸5 0غ But‏ 


عدد أربعة ليبلات كاعطجا 


عدد واحد صندوق للصور ×80 ۲۵۴ ں٤۴‏ : قم بإضافة کل مکون من المکونات أعلاہ کل على 
حدة وإذا رأيت أن الفورم أصبح ضيقا فاذهب إلى أسفل يمين الفورم (عند الزاوية) في حينه 
سيتحول الماوس إلى سهم محدد من الطرفين» اضغط على الفورم وقم بعملية التكبير أو التصغير 
للفورم. لإضافة المكونات المذكرة أعلاه للفورم نذهب إلى ×۲00150 (صندوق الأدوات في 
الصورة أعلاه) ثم نذهب بالماوس إلى فوق ال 810١‏ نضغط عليه ثم نذهب إلى الفورم 
ونضغط عليه فنلاحظ انتقال الزر إلى الفورم لنقل الزر الثاني نستطيع تكرار العملية أو نستخدم 
طريقة النسخ واللصق فوق الفورم فنحدد الزر بواسطة الماوس ثم نضغط C)٣)+٣‏ ثم Ct٣)+۷‏ 


أما الطريقة الثالثة لإضافة المكونات إلى الفورم فهي الذهاب إلى صندوق الأدوات ×0ط)اهه] 
وقبل اختيار المكون إلى الفورم نضغط على الزر C۲)‏ ثم نختار المكون المراد ثم نذهب إلى 
الفورم ثم نضغط في أي مكان في الفورم ونحن مواصلين على ضغط الزر C٣‏ ثم نضغط مرة 
ثانية على الفورم ثم مرة ثالثة» سنلاحظ أن المكون الذي اخترته تم لصقه أكثر من مرة على 
الفورم» نستخدم هذه الطريقة في حالة إذا أردنا إضافة العديد من الأزرار أو المكونات إلى الفورم 


دفعة واحدة بدون الحاجة للذهاب إلى صندوق الأدوات عند كل مرة. 


عند إضافة الأزرار إلى الفورم نستطيع أن نقوم بتغيير مكانهما في داخل الفورم وكذلك نستطيع أن 
نغير من حجمهما بداخل الفورم لتغيير المكان التابع لهما في داخل الفورم نحدد الزر أو المكون 
المراد تغيير مكانه بداخل الفورم ثم نقوم بعملية السحب والتحريك له بداخل الفورم وعلية 
فسنستطيع أن نغير مكانة إلى أسفل أو أعلى الفورم أو إلى الوسط. (في حالة إذا أردنا أن نقوم 
بسحب الاثنين الأزرار مرة واحدة إلى أي مكان في الفورم نقوم بتحديدهما الاثنين (أو كل الأزرار 
في حالة إذا ما كان هناك أكثر من اتنين)وذلك بالضغط على C١1‏ واختيار الأول ومواصلة 
الضغط على ٣|‏ ثم اختيار الثاني وبعد ذلك نستطيع سحبهما إلى مكان معين في الفورم مع 
بعض ونستطيع كذلك من تغيير خصائصهما المشتركة مع بعض) 


نفس عمليات السحب والإلقاء التي تطبقها على الأزرار 5١0لا8‏ تستطيع أن تطبقها 
على بقية المكونات متل الليبلات كا٥‏ ها وغيرها من المكونات. 


عند القيام بتغيير مكان الزر على الفورم وفي حالة ذهبنا إلى نهاية الفورم سنلاحظ تكون 
خط ازرق ليحدد لك انك اقتربت من نهاية الفورم وعند توفر العديد من الأزرار أو 
المكونات على الفورم ستلاحظ تكون الخط الأزرق ليبين لك إن الزر أو المكون الذي 
تقوم بتحريكه يوازي بقية المكونات على الفورم 


تستطيع إظهار الشبك )6۲1١(‏ وهي خطوط عمودية وأفقية على الفورم تستطيع أن 
تستخدمها لمعرفة هل الأزرار أو المكونات على خط متوازي أو لا بمعنى آخر أنها 
تساعد في تنظيم المكونات على الفورم. في الفيجوال 2003 وكذلك الفيجوال 6 كانت 
ال 6۲١‏ أو الشبك تظهر بشكل افتراضي على الفورم إذا كنت تريد إظهارها اذهب 
إلى قائمة 5ا٥۲‏ بعدها ۸5٣٥آام0‏ ستظهر لك نافذۃ تأکد من اختیار Show All‏ 
ئ etti‏ اسفل النافذۃ ثم اذهب إلى €۲" Windows ۴o ms Desi‏ اختر منھا 
Genera)‏ ثم اضبط 64 $h0W‏ على ع٥۲۲u‏ واضبط Lay011M0 de‏ علی 
0 هم أغلق الفورم ثم افتحه مرة ثانية سيظهر بهذا الشكل: 


E Formî 


تستطيع تغيير حجم أي زر أي مكون على سطح الفورم بأن تقوم بتحديده سيظهر لك ثمانية 
مربعات بيضاء على الزر أو المكون المحدد تستطيع أن تضغط على احدها وتقوم بعملة تكبير أو 


تصغير لازر أو للمكون انظر الزر التالى: ا لاحظ الثمائية المربعات البيضاء. 

| |تستطيع إلغاء أي زر أو أي مكون من سطح الفورم بتحديد المكون المراد ثم بالضغط 
: على 0٥1۴٥‏ الآن قم بعملية إضافة المكونات إلى الفورم وإلغائها وتغيير مكانها على 

الفورم وكذلك تغيير حجمها لتعرف أكثر. 

قمنا الآن بإضافة اثنين أزرار وأربعة ليبلات وواحد صندوق للصورة. بعد إضافة المكونات إلى 

الفورم قم ببعض التعديل على خصائص هذه المكونات لتتلائم مع حجم الفورم ونوع الخط المراد 

عرضة على شاشة المستخدم. (لإظهار نافذة الخصائص اضغط على ۴4) 


لتعديل خصائص أي مكون علينا أن نحدد المكون المراد تعديل خصائصه ثم ذهب إلى نافذة 
الخصائص ونقوم بالتعديلات اللازمة أو من نافذة الخصائص نختار السهم أعلى نافذة الخصائص 


ونقوم بالتعديل علية لاحظ الصورة (قمت بتلوين مكان السهم بالأحمر): 


Formi System. windows, Forms, Form 


Label] System, windows; Forms, Label 
Label2 System, Windows, Forms, Label 
Label3 54sterm, windows, Forms, Label 
Label 54stem, windows, Forms, Label 
PictureBox1 54stem. Windows, Forms, PF 


يمكنك تعديل خصائص أكثر من مكون مرة واحدة وذلك بتحديد هذه المكونات مرة واحدة ثم تعديل 
خصائصها أو اختيار المكون الأول ثم الضغط على ٤؟۸؟‏ ثم اختيار المكون الثاني وهكذا. للعلم 
في حالة اختيار العديد من المكونات ليتم تعديل خصائصها مرة واحدة فقط الخصائص المشتركة 
بين هذه المكونات ستظهر في نافذة الخصائص. ما نريده منك الآن هو أن تقوم بتغيير الخصائص 
الخصائص» سنقوم الآن بذكر بعض الخصائص الخاصة بالمكون 80١‏ أو الزر. 

الخاصية شرحها 

(Name)‏ اسم الزر المختار وافتراضیا تسمى 1,2,3١0))لا8‏ ولكن تستطيع 
تغييرها للتناسب مع طبيعة الزر المراد تكوينه فممكن تسميتها إبداً 
Start‏ أو إنهاء ۴×8١‏ أو غيرها من التسميات والتسمية مهمة 
في مرحلة الكود لنعرف لماذا هذا الزر. 

Anchor‏ تحدد مكان الزر في حالة تكبير الفورم وقت التشغيل (المقصود بوقت 
التشغيل وقت تشغيل البرنامج) فبإمكانك اختيار احد الأسهم أو اثنين أو 


AutoEllipsis 


AutoSize 


AutoSizeMode 


BackColor 


_Backgsround 

Image 
_Backgsround 
ImageLayout 


Cursor 


Dock 


التلاثة أو الكل. افتراضيا اليسار والأعلى يكون مختار مسبقا وعلية ففى 
حالة تكبير الفورم وقت التشغيل فان الزر يتجه نحو أعلى يسار الفورم. 
أما في حالة اختيار الأربع الجهات ففي حالة تكبير الفورم فان الزر 


يتجه نحو وسط الفورم. 


الزر فستقوم هذه الخاصية بإضافة ثلاث نقاط في الرز أما إذا كان بنفس 


EN ETE 


تسمح هده الخاصية في حالة ضبطها على ۴ بتکبیر حجم الزر اذا 
كان النص اكبر من حجم الزر فيكبر الزر ليسمح برؤية النص كاملا. 


طريقة التعامل مع النص الكبير 6۲٥W0١1¥‏ يكبر الزر بمقدار النص 
60W ANdSNri€‏ يكبر الزر في نفس الوقت الذي يتم فيه تصغير 
آلتسن: 


لون الزر. 


خلفية الزر حيث تستطيع أن تضع صورة كخلفية في الزر. 


طريقة عرض الصورة في حالة اختيار صورة كخلفية. 


شكل السهم وقت التشغيل وقت مروره على الفورم ستلاحظ العينات. 


طريقة عرض الزر على الفورم. 


Enabled 


FlatStyle 


Font 
ForeColor 
Location 


Locked 


MaximumSize 


MinimumSize 
Right ToLift 
Size 


Tablndex 


في حالة ۲۲1۵ يكون الزر طبيعياً في حالة #ءاه۴ يكون الزر مرئي 
ولكن لا يمكن التعامل معه. 


أربع خيارات لعرض الزر وهذه تعتمد على ذوق المصمم وكذلك على 
نوعية البرنامج جربهم واحده بعد الأخرى ثم قم بتشغيل التطبيق ولاحظ 
تغيير شكل وطراز الزر. 


سيظهر لك نافذة كالتي في الورد لتغيير حجم ونوع وشكل الخط. 
لتغيير لون الخط. 
مكان الزر على الفورم بتغيير الأرقام يتغير المكان أفقيا وعموديا. 


نستفيد من هذه الخاصية وقت تصميم التطبيق وتقوم بتثبيت مكان الزر 


على الفورم حتى لا يتغير مكانه إذا عبثنا بالماوس أو أخطأنا. 


اكبر مساحة ممكنة للزر» تستطيع تحديد اكبر عرض W10۸‏ ممكن 


غکنالاورل 
اتجاه الزر (من اليمين إلى اليسار) مفيد للتطبيقات ذوو الواجهة العربية. 
مساحة الزر العرض ل۷1 والارتفاع Hei‏ 


بعد تشغيل التطبيق تستطيع التنقل بين المكونات بواسطة زر الكيبورد 
طا أما الخاصية #٥×‏ ل اطه1 فتحدد رقم الزر في حالة الضغط على 
٥‏ فالرقم صفر يبين انه بعد تشغيل البرنامج مباشرة سيكون ۵ 
فوق هذا الزر وإذا تم ضغط زر الكيبورد 140 فسينتقل إلى الزر ذو 


رقم 1 d€×‏ "اط2ا وهكذا. 


TapStop‏ في حالة الضبط على ١ءاه۴‏ فعند تشغيل التطبيق والضغط على زر 
الكيبورد ٣45‏ فلن ينتقل إلى هذا الزر لأنلك ضبطت القيمة على عكاج۴ 
وإذا ردت أن ينتقل إلى هذا الزر فاضبط القيمة على ٥uں ٣‏ 

Text‏ النص الموجود داخل الزر. جرب اكتب اسمك أو ما تريد في هذه 
ااافا وة اا سر ع لز 

TextAlign‏ ا ق 

Visible‏ في حالة ضبط هذه الخاصية على ه١اه۴‏ فإن الزر سيختفي في حالة 


هناك العديد من الخواص التي لم اذكرها للعديد من الأسباب ولكن الخصائص المذكورة أعلاه 


تعتبر الأكثر استخداما وهي نفسها خصائص مشتركة بين العديد من المكونات. 


۹2 عندما استخدم مصطلح مکون فاقصد به زر 0۸) 8u‏ أو لیبل 561ھا أو صندوق نص 
٦٥×8 0× ۰‏ أو صندوق صورة ۴c r۴80×‏ او غيرها من المكونات التي تظهر في 


صرق الادوات: 


بالنسبة لصندوق الصورة فبعد تحديده سترى سهم صغير أعلى يمين الصندوق قم بالضغط على 
السھم تم اختر ٥ھ"‏ | C۸٥٥‏ ستفتح لك نافذۃ اختر ۲٤٥٥‏ 0u۷؟ا‏ )ھ٤ا‏ تم اختر زر 

ادما ثم اختر صورة ستلاحظ انتقال الصورة إلى صندوق الصورة على الفورم تركت لك 

صورة في الملف رقم 002 باسم ۸ك قم باختيار الصورة» طبعا بعد اختيار الصورة اذهب إلى 


خصائص صندوق الصورة واضبط الخاصية هاطاءآ۷ على عكاهج۴. تستطيع الضغط -عاubںم0‏ 


)اا على الخاصية فتتغير بين ع٥۲۲‏ و عكاه۴ لأنها قيمة 8001٥١‏ وكل قيمة بوليان 
موجودة في الخصائص تستطيع تغيير ها بالضغط دبل كليك على الخاصية المراده. لنعرف الآن 
ماذا نريد من البرنامج الذي نقوم بتصميمه الآن شاهد الصورة التالية لتعرف ماذا نريد من 


HE Form1 


لدينا اثنين من الأزرار زر ابداً وزر توقف وصندوق للصورة فإذا ضغطنا الزر ابد يقوم البرنامج 
بتوليد الأرقام العشوائية في الثلاثة الليبلات وإذا ضغط الزر توقف فان البرنامج يتوقف عن توليد 
الأرقام العشوائية فإذا كان بين هذه الثلاثة الأرقام التي تم توليدها الرقم 7 ستظهر الصورة في 
مرحلة الكود: 

في هذه المرحلة سوف نعرف كيف يتم توليد الأرقام العشوائية وكيفية إظهار الصورة في حالة 
وجود الرقم 7 في احد الليبلات. لننتبه أن الزر الذي سيبداً في توليد الأرقام العشوائية هو الزر ابدأً 
والحدث الذي نريد أن يتسبب في توليد الأرقام العشوائية هو حدث النقر على الزر أو الحدث 


ما كيف نعرض هذا الحدث. نستطيع ذلك بأکثر من طریقة الأولی النقر المزدو ج -eاubه0‏ 


)ا على الزر في الفورم سينتقل لك مباشرة إلى حدث النقر على الزر. الطريقة الثانية هي 
عمل )1)٣-۸وآR‏ على الفورم ثم اختر ٥ل١0) ۷1۴۷W‏ ثم أعلى منطقة الكود اضغط السهم 
المنزلق تم اختر الزر الذي تريد تعديل خصائصه ثم اذهب إلى اليمين تحت nsټDeclarati0‏ 


اضغط السهم ثم اختر الحدث ٤1ا٤‏ انظر الشكل التالي لمعرفة كيفية الوصول إلى الحدث المراد: 


Formi.yb™! Fotml.vb [Design™ | Stat Fage e * 
„# Buktant شنا مکان اختیار المکوناث‎ » | | FDeclarations) ب وهنا اختيار الاجدات‎ 
E FUBIiE Laê: For E (Declarations) 
# BukoSizêchanged ڪ‎ . 

# BackColorcharged 

# Barkgroundlmagethanged 

# BackgroundlmagelLayoutcharnged 

# Bindingcontexttharged 

# Causeswaldatlonchanged 

# ChangelUlcues 

# chek 

# ClentzeChanged 

# conktextMenuChanged 

# ConkextMenuStrîpzhanged 

# Conkralêdded 

# Contra Removed 

# CursarChanged 

# Dispased 

# Darckchanged 

# Daublezlick 

3# DragDrap 

3 DragEnter 

# Dragleave 

# Dragûver 

# Enabledêhanged 

# Enker 

# Fantthanged 

# Foarecolorchanged 

# GiwveFeedback: 

# GotFocus 

# Handlezreaked 

# HandlêDastrayad ي‎ 


“End TClags 
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Error Lis 


| 3 DErtgrs A û Warnings | | LÎ Messages | 


Gescription 


بعد الوصول إلى مكان الحدث التابع للزر 1١٥0لا8‏ والذي هو زر ابدأً (نستطيع تغيير الاسم 

للزر ليتلائم مع وظيفة الزر بداخل التطبيق كما هو موضح في شرح جدول الخصائص) نقوم 
بكتابة الكود التالي بين الجمdتjı‏ bؤSub :End Sub ş Private‏ 

PictureBox1.Visible = False 

Label1.Text = CStr (Int (Rnd() * 10)) 


Label2.Text = CStr (Int (Rnd() * 10)) 
Label3.Text = CStr (Int (RAnd() * 10)) 


If (lLabel1.Text = "7") Or (Label2.Text = "7") Or (Label3.Text = "7 ") 


Then PictureBox1.Visible = True 


ملاحظات حول الكود السابق: 


للانتقال من السطر الأول إلى السطر الذي يليه قم بالضغط على ۲ا" ع. أما في حالة السطر 
الطويل فيمكنك تقصيره بإضافة _ ثم الضغط ۴١6١‏ بعدها مباشرة لتنتقل إلى السطر الثاني. 


خلال عملية كتابة الكود ستلاحظ أن بيئة التطوير تساعدك على كتابة الكود بواسطة الإكمال 
التلقائي» وكذلك ستلاحظ تلوين بعض الكلمات فاللون الأزرق للكلمات المحجوزة في بيئة التطوير 
لأوامر البرمجة والتطوير وعلية فلا يمكن تسمية المكونات بهذه الكلمات ولا يمكن استخدامها 
كمتغيرات في البرنامج» أما اللون الأخضر فهو للجمل التذكيرية التي تستخدمها لتذكر لماذا كتبت 
هذه الجملة البرمجة وهذه الجمل لا تدخل في عملية الكود ولا يتم ترجمتها إلى لغة الآلة ولكن 
تستخدم للتذكير فقط. أما اللون الأحمر فسيستخدم للنصوص ۲۴×5 فإذا كان لدينا نص معين في 


الكود فستقوم بيئة التطوير بتلوينه باللون الأحمر. 
قم الآن بإضافة الكود للزر توقف: 


قم بعمل )ء1)٣-عاطنام0‏ على الزر توقف الموجود على الفورم ستنقلك بيئة التطوير إلى الكود 
مباشرة وبالتحذيذ إلى الحدت ءا وهو المظلوب» أكثب هذا الكرد: 


End 


الكود أعلاه معناه أغلق التطبيق ففي حالة تشغيل التطبيق والضغط على الزر المعين سيغلق 
التطبيق. صورة لمنطقة الكود بعد إضافة الكود المطلوب: 


e 


;# Button || # Chick 
کے‎ 
اف‎ 
E Private Sub Buttonl ClIick(ByFVal sender As5 Object, EyVal e As System.EventArgs) | 
ا‎ Handles Button1.Click 
PictureBox1.Visible = Fal3E ' 3ةرږصnل|‎ ¢#اخخiل‎ 
Label1. Text = CStr (IntIRnAI] * 10] ' لإختيان الرقح العشوائي من ضفر الى عشرة‎ 
LabElZ2. Text = CStEr [(Int{RRAL] * 10O}} 
Label3. Text = CStr{(Int [RHA * 10}} 
١ لذا جتان الرقع العشوائي يساوي سبعة فقم بالتال‎ 
IF {Label1.Text = "r"| ûr {Label2.Text = "Ij Or {Label3.Text = "j | 
TRHERTPISUMELEBONETTLSIRTE FERE 
End 32ub 
5 Private Sub Buttond _ ClIick{ByVal sender As System. Ophject, ByVal e | 
م‎ System. EventArga)j Handles Buttond . Click 
End 
i End Sub 
LEnd Class 
ê ® | 


دعونا الآن لنفكر مرة ثانية كيف يعمل هذا البرنامج بعد تشغيله: فبعد تشغيل البرنامج تكون 
الصورة الموجودة في صندوق الصورة مختفية وذلك لأننا ضبطنا الخاصية هاطأء¡۷ لصندوق 
الصورة أو ×0 8ع ںا†ءآ۲على ها۴ وحين الضغط على زر ابداً أكثر من مرة يقوم التطبيق 
بتوليد أرقام عشوائية من صفر إلى عشرة 

((Eabêll. Text = CSEE (In (RIA) *™ 10‏ 
٣ك‏ تساعد في التحويل إلى 5٣١١١‏ أما |٠٤‏ فتعني أن الأرقام المولدة ستكون أرقاما صحيحة 
أما R٣١‏ فتعني العشوائية ۸440۳ حيث سيقوم البرنامج بتوليد الأرقام العشوائيةء أما الرقم 
عشرة فهو حدود الأرقام العشوائية حيث يتم توليد الأرقام من 0 إلى 10 (جرب اكتب 100 بدل 
عشرة وشغل البرنامج وانظر كيف تتم عملية توليد الأرقام» حيث سيتم توليد الأرقام من 0 إلى 
0 ) وإذا كان الرقم المولد في احد الليبلات الثلاثة يساوي 7 فسيقوم البرنامج بإظهار الصورة. 
أما في حالة الضغط على الزر توقف فسيتم إغلاق التطبيق. في الشكل أدناه سنوضح كيف يقوم 
الفيجوال بيسك بتنفيذ العملية: 


((Label1.Text = CStr (Int (RAQ () * 10 كوكJl‎ 


الكود التنفيذ 
Rnd‏ 0.7055455 
Rnd * 10‏ 7.055455 
(Int(Rnd * 10‏ 7 

7 ((CStr(Int(Rnd() * 10 


CStr(lnt(Rnd() * 10‏ = ex»tا.be)1هL))‏ يتم نقل الرقم 7 إلى الليبل1 


وبعد ظهور الرقم سبعة في اأحد الليبلات يقوم البرنامج بإظهار الصورة في صندوق الصورة عن 
طريق الجملة الشرطية ۴|ء والتي تشترط وجود الرقم 7 في الليبل الأول أو الثاني أو الثالث. 


لتشغيل البرنامج الذي تم تصميمه اضغط على ۴5 أو بالذهاب إلى قائمة وٍuط0‏ اختر خاSta‏ 


.Debugging 


ك عد تشغيل البرنامج لأكثر من مرة ستلاحظ أن الأرقام التي يتم توليدها متشابهه» جرب 
e‏ ذلك بتشغيل البرنامج أكثر من مرة وقم بتدوين الأرقام في الخانات الثلاث ستلاحظ 
تكرار الأرقام بين كل تشغيل والآخر للبرنامج. إذا ما الحل علينا أن نعرف إن الدالة 
70 تقوم بتوليد نفس الأرقام العشوائية ولجعل هذه الأرقام تختلف بشكل عشوائي 
حقيقي» نضيف الكلمة ۸١00۳12٥‏ للفورم عند الحدث 1٥٠۵١‏ وللوصول إلى الحدث 
نضغط )ء)٣-ع‏ )طباه على الفورم فسينقلنا مباشرة إلى الحدث .104١4‏ أو الذهاب 
للحدث بقراءة أحداث الفورم والوصول إلى الحدث ١2ا‏ كما تعلمنا سابقاً في أحداث 
الزر .But)0۸1‏ 


توجد نسخة من التطبيق الذي قمت بتصميمه في المجلد المجلدات المرفقة مع الكتاب رقم المجلد 
2 يمكنك فتح التطبيق الذي تم تصميمه مسبقا وعمل مقارنة بين التطبيق الذي قمت بتصميمه 


والموجود بالمرفقات. 
نشر البرنامج: 


إذا قمت بعملية برمجة لبرنامج معين وأردت أن تنشره فبعد حفظه اذهب إلى المجلد الموجود في 
نفس المسار الذي حفظت فيه المشروع وستجد البرنامج المصمم. انسخه ثم قم بنشرة على 
الأصدقاء لتجربته أو العملاء في حالة بيعه لكن يلزمك نشر الفريم ورك التي تم برمجه البرنامج 
بھا فإذا استخدمت 2 Framework‏ أو ۴5 ا۴ramewo‏ فیلزم نشر نفس الفریم ورك مع 
البرنامج» كما يوجد بعد الإعدادات الخاصة برقم النسخة ورقم المراجعة تستطيع تعديلها من قائمة 
tهزدا"‏ في نهاية القائمة ستجد (اسم مشروعك) كع #۲ م٠۴۲‏ اخترها من النافذة التي تظهر 
اختر منھا ۸٥t1ھcااممA‏ علی الیسار ثم اختر منھا ٥۲٣۵٤10۸‏ ہا yاb٣عکک۸‏ وقم بتغییر 


. File Version ş Assembly Versi0n دie‎ ةخسنلl رقم‎ 
تنصيب برنامجك:‎ 


يتيح لك الفيجوال بيسك 2008 العديد من الخيارات لتنصيب برنامجك على الأجهزة الأخرى. 
بالمقارنة ففيجوال بيسك 6 يتطلب منك برنامج تنصيب معقد ليقوم بنقل مكتبات الربط الديناميكية 
والملفات المساندة للبرنامج وكذلك لابد من تسجيل البرنامج في نظام التشغيل ليتم تشغيله على 
الأجهزة الأخرى. بينما في فيجوال 2008 فيتم إعداد ملف التنصيب مع أول عملية تجربة للبرنامج 
أو مع أول عملية بناء للبرنامج طبعا البرنامج يحتاج للملفات المساندة وهي لغة مايكروسوفت 
الوسيطة اا5" و هاةdهاعص‏ (البيانات التي تصف المحتوى) و أكع؟آ٣ج"‏ (السجلات) و بقية 
الملفات والمكتبات المساعدة. إذا أردت نقل برنامجك من جهاز كمبيوتر إلى أخر عليك فقط بإتباع 


طريقة القص واللصق من جهاز إلى أخر بشرط وجود نسخة الفريم ورك المناسبة على الجهاز 


الأخر وكذلك يمكنك استخدام طريقة ¥مه× المتوفرة في ال كع في ال 005. لكن 
في الحقيقة إذا كان البرنامج مصمم لغرض تجاري أو لغرض عملي بحيث إن البرنامج مهم لدرجة 
ما فلا يمكن لنا أن نقوم بعملية النسخ واللصق أو عملية إم ×٤0‏ وإنما من الأفضل عمل ملااك 
خاص بالبرنامج حتى إذا أردنا أن نحذفه من الجهاز نذهب إلى لوحة التحكم (إضافة وإزالة 
البرامج)» الفيجوال بيسك 2008 يوفر طريقتين لنشر وتوزيع برنامجك 1- -2 ClickOnce‏ 
erا)nstaاs Window‏ آما الطريقة الأولى فيمكنك استخدامها إذا أردت التسهيل مع المستخدمين 
لبرنامجك» حيث يمكن للمستخدمين تنصيب البرنامج بأقصر الطرق وبأقل تفاعل يذكر» بواسطة 
هذه الطريقة تستطيع تحديد المستلزمات لعملية التتصيب مثلا الفريم ورك وكذلك يمكنك إرسال 
التحديثات لبرنامجك» تستطيع نشر برنامجك إلى سيرفر على الانترنت أو سيرفر محلي أو النشر 
على سيديهات» تستطيع الوصول إلى هذه الطريقة من طرق التنصيب بسهولة فقط اذهب إلى قائمة 
و اختر ۸ءأاطنا۴ تستطيع تغيير إعدادات عملية التنصيب هذه بواسطة الذهاب إلى قائمة 


t)هزoا۴‏ ثم اختيار كعآأممها۴ وتغيير الإعدادات التي تريدها. 


أما بالنسبة للطريقة الثانية 52)6۲" Ws|‏ ۷"0 فيمكنك استخدامه بفتح مشروع جديد في 
الفيجوال 2008 ثم الذھاب Setup and رlıتخl pۃî Other Projects Types yJ‏ 


erصymمامepط‏ واختر من اليمين القالب الذي تريد وقم ببناء مشروع التنصيب. 
إضافة آخيرة لبرنامجك: 


لعمل إضافة صغيرة لبرنامجك (قد لمحت عنها سابقا) افتح المشروع الذي قمت ببرمجته وتعلمته 
خلال هذا الفصل والمسمى ۸۲٩۳‏ ثم أضف الكلمة ۸440۳12٥‏ إلى حدث 1٥44‏ التابع 
للفورم ثم اضغط ۴"6۲. الكلمة ۸۸00۳7٥‏ معناها العشوائية وتستخدم ساعة النظام لتوليد 
أرقام عشو ائية حقيقية حيث تحدد كلمة ۸40120 بداية عشوائية لتوليد الأرقام ليست نفس 
البداية التي يحددها البرنامج بدون 88١40۳128‏ وتختلف هذه البداية من وقت إلى أخر باختلاف 


ساعة النظام. بدون الكلمة ۸۸00۳120 يقوم البرنامج بتوليد أرقام عشوائية ولكن من بداية 


معينة بحيث إذا تم تشغيل البرنامج أكثر من مرة وتم متابعة الأرقام العشوائية سنجد أنها متطابقة 


مع بعضها البعض. بعد إضافة هذا التحديث البسيط لبرنامجك الأول قم بحفظ المشروع. 


خلاصة سريعة للفصل الثاني: 


اسل 
إضافة بعض 


المكونات لواجهة 
المستخدم 


تحريك مكون معين 


حذف مکون 


فتح محرر الكود 


تحويل المشروع 
إلى ملف × 


إعداد المشروع 


قم بالتالي 


اذهب إلى صندوق الأدوات واختر المكونات التي تحتاجها لواجهة 
المستخدم» بعد إضافة المكونات اللازمة قم بتغيير حجمها ومكانها على 


قم بتحديد المكون بواسطة الماوس ثم قم بعملية السحب إلى المكان الذي 


تريد على الفورم. أو قم بتغيير خصائص المكون المحدد. 


قم بتحديد المكون ستظهر ثمانية مربعات بيضاء صغيرة عليه» اضغط على 


احدها وقم بالسحب لتغيير حجم المكون» أو استخدم نافذة الخصائص. 
قم بتحديد المكون ثم اضغط عاع)٥ع0‏ 


قم بالضغط )c٤1ا٣-eاطuاه0‏ على الفورم. أو قم ب )1c)٣-۸وRi‏ على 


الفورم واختر .View Code‏ 
من قائمة ۴1٥‏ اختر ۸)1 5۵۷٥‏ أو اضغط زر الحفظ افا 


«Rebuild jİ Build اختر‎ Build ةnئاق اذهب إلى‎ 


اذهب إلى قائمة ١)۷ا6‏ واختر منها كتاطنا۴ واختر الخيارات الملائمة 


فتح مشروع سابق. | من قائمة آ۴ اختر ا عزه٣۴‏ ١ص0‏ ثم اختر مشروعك لفتحه. 
أو من نفس القائمة اختر كا عزه٣۴ Recent‏ ثم اختر مشروعك. 


أو اختر مشروعك من قائمة أخر المشاريع الظاهرة في يسار بيئة التطوير 


Recent Projects il تحٽ‎ 


الفصل الثالث: التعامل مع الأدوات 

الأدوات: هي تلك المكونات التي تضاف إلى واجهة المستخدم ليتفاعل معها المستخدم وقت تنفيذ 
البرنامج وتوجد في بيئة التطوير في صندوق الأدوات على اليسار من بيئة التطوير (بشكل 
افتراضي وتستطيع تغيير مكانه) بسهولة جدا نقوم بإضافة المكونات إلى الفورم بواسطة السحب 
والإلقاء بالماوس. الأدوات الموجودة في صندوق الأدوات مرتبة بحسب الفئة: فهناك الأدوات 
الشائعة الاستخدام تحت َة Common Controls‏ وناك Îدوات‏ !ٺi>تlgء Containers‏ 
وهناك أدوات الطباعة ۴٣١٣٤1١‏ (استخدمنا بعضاً من هذه الأدوات في الفصل السابق) سوف 
تعرف الكثير عن بقية الأدوات منها أدوات المستخدمة للتعامل مع قواعد البيانات وكذلك أدوات 
صفحات الإنترنت لاحقا في هذا الكتاب. في هذا الفصل سوف تتعلم كيفية تعرض معلومات معينة 
في صناديق النص ٠۴×80×‏ وكذلك التعامل مع التاريخ والوقت في نظامك» استقبال مدخلات 
المستخدم» وفتح صفحة انترنت في بيئة التطوير. الأمثلة في هذا الفصل ستساعدك على فهم 
الخصائص والكود والكائنات. 


The Hello World Program جnliرب الاستخدام المبسط للأدوات:‎ 


في العرف البرمجي يوجد برنامج يسمى ۷0۲1١‏ 1610ء إذا أردت دراسة أي من لغات البرمجة 
فلا بد من المرور بهذا البرنامج» هذا البرنامج عبارة عن شاشة أو صفحة انترنت مكتوب عليها 
0 110ع1. يبين هذا البرنامج مدى سهولة التعامل مع لغة البرمجة المعينة وكيفية البداية 
معها. في البرمجة المبنية على الحرف Character-Based Programmi”‏ يأخذ برنامج 
H٥10 0‏ سطرين برمجيين أو ثلاثة فقط ولكن مع تطور لغات البرمجة وتعقد أنظمة 
التشغيل أصبح برنامج 1٥110 ۷0۲1١‏ أكثر تعقيدأ مما سبق وقد يصل إلى عشرات الأسطر 
البرمجية. مع برنامج الفيجوال بيسك 2008 لحسن الحظ البرنامج سهل جدا فبالإمكان كتابة 
البرنامج بإضافة اثنين من المكونات واستخدام خاصيتين وسطر واحد من الكود فقط لذلك لابد من 
تجربة العملية. 


-١‏ افتح الفيجوال 2008 ثم اذهب إلى قائمة ۴|٥‏ واختر اعزه٣۴‏ Wعء‏ ستظهر لك نافذة تأكد من 
أن اللغة ىج8 isu)‏ وان الفئة هي Windows Forms رتèl pءî Windows‏ 


icationاApp‏ قم بتغيير الاسم بالأسفل من MyHello yl WindowsApp|icati0¬1‏ 


الأمثلة التي ستتعلمها خلال هذا الكتاب سيبداً اسمها ب ل تمييزاً لها عن تلك 
.MyHello‏ 


بعد تغيير الاسم ستكون معك مثل هذه الشاشة: 


سے سے م 
TTI amar a‏ 
Maw Project 1‏ 
r =‏ 
Project types: Templates: (MET Framework 33 “‏ 
جو ا س س ا 1 
Vial Baêîê 2 | Vual Studie stalled termi platês‏ 
2 س ج E N‏ 
a 1 e:‏ 
e SE E e a YQ‏ 
Smart Device | Wirdûws Clas Library WPF WPF Browser Console Empty‏ 
Offité Forms APs. Application Application. Application Project‏ 
Datalašêë ê‏ 
| ۹ ك Reporting 3 e"‏ 
Test Windows WPF Custom WPF User. Windows:‏ 
WCF beryreeE  :Gantrol Lib, Controls, FONTS or‏ 
Workfiw‏ 
Other Languages: My Têmplatek‏ 
Other Frojert Types |‏ 
وی Test Ptgjetts‏ 
Seateh‏ 
Gnlinê Tei.‏ 
dw‏ 
A pröjett for creating an application with a Windows User interface (NET Franiewiork 3:5]‏ 
Mariel! MyHelIo]|‏ 
Ok 1 lı vEaneelı |‏ | 


اضغط 0 لإنشاء المشروع. بعد إنشاء المشروع سيظهر أمامك فورم فار غ. الأدوات التي 
سنستخدمها في هذا المشروع هي 1-زر 2 ۰١10ا6-صندوق‏ للنص ×1۴×)80»› تستخدم 
صناديق النص لإظهار النصوص أو لاستقبال النصوص المدخلة من قبل المستخدم خلال مرحلة 
تشغيل البرنامج. صندوق النص هنا لإظهار الجملة ۷0۲1١‏ 0ا٥1‏ خلال مرحلة تنفيذ البرنامج 
بعد الضغط على الزر. 


¥ 


القراء الذين استخدموا النسخ السابقة من فيجوال بيسك سيلاحظون عدم وجود 


قيمة في الخاصية 1٠×‏ التابعة لل ×16×)60 وإنما الخاصية فارغة. 


بعد إضافة الزر وصندوق النص ستكون الفورم مثل الشكل التالي: 


nz Farm EA HERT 


lı Buon | 


بقي لنا الآن أن نضيف الكود للزر 0١1‏ ا8 في حدث )٤1ا‏ هذا الكود 

Textbox1.text = "Hello World" 
إن بيئة التطوير ستقوم‎ ٣۴×80×1 ستلاحظ عند طباعتك للجملة أعلاه وعند وصولك النقطة بعد‎ 
بإظهار قائمة بالخيارات الممكن إدخالها للصندوق النص تجاهل القائمة وواصل الطباعة» فقط في‎ 
حالة نسيت الخاصية التي تريدها أو تريد أن تبحث عن الإضافات الجديدة التي لا تعرفها يمكنك‎ 
مشاهدة بنود القائمة. الجملة البرمجية أعلاه التي كتبتها تقوم بتغيير خاصية النص الموجود بداخل‎ 


0×1طe×t‏ ا إلى النص ۷0۲14 ٥10‏ سيتم تغيير الخاصية خلال مرحلة تنفيذ البرنامج. 

فم بتشغيل البرنامج بالضغط على ۴5 بعد تشغيل البرنامج اضغط على زر 0 الموجود في 
م. سيوم البردمج ي مربع م 

البرنامج بالضغط على زر الإغلاق المتوفر في الفورم في أعلى يمين الفورم. بعدها قم بحفظ 


تة ا خة من البرنامج موضوع في مجلد رقم 003 المرفق مع الترجمة. هذه صورة للبرنامج 


HE Form1 


تعرفت الآن على بعض أدوات بيئة التطوير وهما الزر ١0ا8‏ و صندوق النص ×0٥0(ا×e٦‏ 
وتعرفت على بعض الخصائص الخاصة بهماء حان الوقت لتعرف أكثر عن بعض الأدوات 
الأخرى الخاصة ببيئة التطوير. 


Date TimePicker öادأJ تدم‎ 


بعض أدوات الفيجوال بيسك 2008 تستخدم لعرض البيانات للمستخدم والبعض الآخر لأخذ 
البيانات من المستخدم» الأداة التي ستتعرف عنها الآن تستخدم لعرض تقويم مرئي يمكن للمستخدم 
معرف هذه المدخلات من خلال بيئة الفيجو ال بيسك 2008. 


برنامج تاريخ الميلاد: 

برنامج تاريخ الميلاد هو عبارة عن برنامج يستخدم لاستقبال مدخلات المستخدم عن تاريخ ميلاده 
ثم تقوم بعرض التاريخ المدخل في صندوق حوار ×50 65548" . نبدأً مع هذا البرنامج. 

من قائمة ۵ا۴ اختر اء عزه۴۲ "۴W‏ (بعض هذه الخطوات نقوم بتكرارها أكثر من مرة عندما 
نريد أن نبني مشروع جديد لذلك تعرف عليها ولا تنسها). 

اختر اللغة ٤¡ئaےB Visua)‏ ثم اختر Windows Forms App) icat10۸‏ وسمي مشرو عك 


MyBirth day‏ وستقوم بيئة التطوير بإنشاء المشروع وسيظهر لك فورم فارغ في بيئة التطويرء 
قم بإضافة الأداة |e Pz) €٣‏ teهط‏ إلى وسط أعلى الفورم كما في الصورة التالية: 


Formî 


Monday , August U4, 2O0 ¥ 


نلاحظ في الصورة أعلاه أن ۲٥)ء‏ آ6۴" ۲ه( يقوم بإظهار التاريخ ويوم الأسبوع لليوم 
الذي نشاهد فيه الفورم في الصورة أعلاه يوم الاثنين الرابع من شهر أغسطس لعام 2008 نستطيع 
تعديل عملية إظهار التاريخ والوقت بتغيير الخاصية Value‏ لتlبaة‏ ئ— Date TimePicker‏ 
حيث تستطيع إظهار تاريخ معين في كل مرة يتم فيها تشغيل البرنامج. قم بإضافة زر 0۸) 8U‏ 
إلى الفورم ليقوم تاريخ الميلاد بعد أن يتم اختياره من ال )أ۴ atime‏ . في خاصية ال 
×۲ التابعة للزر 1١0ا8‏ نكتب التالي "أظهر تاريخ ميلادي"'. الآن نقوم بإضافة كود للزر 
tt1‏ في حدث ٤‏ 1ا(حدث الضغط على الزر)ء طبعاً نستطيع إضافة الكود عند أي حدث 
ق عند حدث €۲٥۳10۷عءا0"‏ (تحرك الماوس فوق الزر) ۳ MouselLeave‏ (مغادرۃ الماوس 
من فوق الزر). وبما إننا نريد أن نضغط فوق الزر ليقوم البرنامج بإظهار التاريخ الذي تم اختياره 
من ال Pater imePicker‏ فعلينا إذن أن نختار الحدث )٤ا‏ التابع للزر 8۷0١1‏ ونكتب 
فيه هذا الكود: 

Ms3g80x ) تاريخ ميلادك هو"‎ " & DateTimePicker1l.Text) 


_&" رقم اليوم في سنة ميلادك هي" ) MsgBox‏ 
(DateTimePicker1.Value.DayOfYear.ToString‏ 


الكود أعلاه يقوم بعرض انين صناديق حوار بعد الضغط على الزر صندوق الحوار الأول يعرض 
لك تاريخ ميلادك والذي قد اخترته من ال ۲٤)ء¡٣‏ ع "اه0 والصندوق الحواري الثاني 
يعرض لك رقم اليوم من السنة (فالأول من يناير يعتبر اليوم الأول من السنة والعاشر من فبراير 
يعتبر اليوم الأربعون من السنة). لاحظ فقط في السطر الثاني فبسبب طول السطر تم الانتقال إلى 
السطر الثالث فقط بإضافة العلامة _ قبل الكلمة التي تريد أن تنقلها إلى السطر الثاني ثم تضغط 
Ent‏ فينتقل بقية السطر إلى الذي يليه. 


9 السطر البرمجي قد يحتوي على 65000 حرف أو أكثر لكن يفضل إذا كانت عدد 
ر الحروف لا تزيد عن 80 في السطر الواحد لكي يسهل مراجعتها وقراءتها. يمكنك 
الانتقال إلى السطر الذي يليه بإضافة العلامة _ قبل الكلمة التي تريد أن تنقلها إلى 
السطر الذي يليه. (لا يمكنك استخدام هذه العلامة _ للانتقال إلى السطر الذي يليه بداخل 
الجمل المغلقة بعلامات التنصيص "" 


مشرو ع تاريخ الميلاد الذي قمت بتصميمه يوجد منه نسخة في الملفات المرفقة في الملف رقم 
4 تستطيع فتحة والمقارنة بينه وبين الذي قمت بتصميمه. بعد تشغيل البرنامج واختيار تاريخ 
ميلادك من ۲ )أ۴ at 6|" ٥‏ ثم الضغط على الزر "أظهر تاريخ ميلادي" سيظهر أمامك 
صندوق حوار تاريخ ميلادك هو وسيظهر لك التاريخ الذي حددته» اضغط موافق أو )0 سيظهر 
لك صندوق حوار آخر ليوضح لك رقم اليوم التي ولدت فيها من السنة. جرب تشغيل البرنامج من 
اجل أن تشاهد هذه العملية وكيفية التعامل مع هذه الأداة. 


9 لتجعل ۴1)۵۲ 1٣٠‏ ه0 يقوم بإظهار التاريخ فقط أو الوقت قم بتغيير الخاصية 
Format 3‏ التابعة له إلى ٥ص¡‏ 


ملاحظات حول المصطلحات: 


استخدمنا العديد من المصطلحات في هذا الكتاب حتى الآن وهناك العديدون الذين لا يعرفون هذه 
المصطلحات بشكل تام» وعليه وجب علينا الآن أن نوضح بعضا من هذه المصطلحات. 


:(Program State ments)يجaربلll‎ Jمجلا‎ 


الجمل البرمجية هي عبارة عن الجمل المكتوبة في السطور البرمجية (خانة الكود) وتقوم هذه 
الجمل بعمل ما خلال مرحلة تنفيذ البرنامج لان الكومبايلر (المترجم إلى لغة الآلة) يقوم بقراءة هذه 
الجمل وتنفيذها. يختلف طول هذه الجمل بحسب الحاجة فبعضها قد يكون طويلاً والبعض الآخر فد 
يحتوي على كلمة واحدة لكن جميعها يجب أن تتبع طريقة ال كعالاا ×ه”/ القواعد البرمجية 
أو الطرق البرمجية التي يتقبلها المترجم أو الكومبايلر. في فيجوال بيسك 2008 الجمل البرمجية 
قد تحتوي على كلمات مجوزة» خصائص» أسماء كائنات» متغيرات» أرقام» رموز» وقيم أخرى 
انظر الفصل الثاني وكذلك الفصل الخامس. 

الكلمات المحجوزة (كئل۷W0۲ءع)):‏ 


الكلمات المحجوزة ك١K۴/W۷0۲)‏ هي كلمات محجوزة في بيئة التطوير هذه الكلمات تتعامل مع 
الكومبايلر بالطريقة التي قد حددت سلفا من قبل مطوري لغة البرمجة (مايكروسوفت). مثل الكلمة 
4 وتستخدم لإغلاق البرنامج أو التطبيق وعليه فلا يمكنك أن تقوم بتعريف متغير بنفس الكلمة. 
اكات لخر قن كز ن فة اتن ار اة اران ك ت اكات 
المحجوزة تظهر باللون الأزرق في محرر الكود. 


المتغيرات (كاطهاا۷a):‏ 


المتغيرات هي عبارة عن حاضنات أو حافظات للبيانات تحفظ البيانات بشكل مؤقت ويتم تعريف 


المتغيرات باستخدام كلمة 01۳ قبل المتغير وتقوم هذه المتغيرات بحفظ البيانات بشكل مؤقت 


وعادة ما تكون هذه البيانات عبارة عن أسماء ملفات» أرقام» تواريخ» صورء بيانات ثنائية (الصفر 
والواحد)» خصائص وقيم أخرى. 


:)Controls) ادات‎ 


الأدوات هي عبارة عن تلك الأدوات التي تقوم بإضافتها إلى الفورم مثل الأزرار» صناديق النص 
الليبلات وصناديق الصور وغير من الأدوات التي يمكنك إضافتها إلى الفورم (عادة ما تكون في 
واجهة المستخدم). اقرأ الفصول من 2 إلى 4. 


الكائنات (كاء٥زط0):‏ 


الكائنات هي عبارة عن عناصر التي تقوم بصنعها بواسطة برنامج الفيجوال بيسك باستخدام أحد 
الأدوات الموجودة في صندوق الأدوات .1٥٥١150×‏ في نفس الوقت الكائنات قد تكون مقدمة من 
ملحقات نظام التشغيل والعديد من هذه الكائنات تحتوي على بيانات. للتوضيح أكثر نقول إن الفورم 
واحد من هذه الكائنات صندوق الحوار كذلك. بعبارة أخرى الفورم هو عبارة عن فة ككهاع 
(كلاس سنقوم بتعريفها لاحقا وبصراحة لم أجد مصطلح مطابق لها %100 لذلك سنستخدم 
مصطلح كلاس) التي تدعم الخصائص والطرق كلهم" والأحداث ك٣‏ ٥۷ع.‏ تمتلك الكائنات 
خاصية الوراثة (الوراثة هي مجموعة من عمليات نظام التشغيل التي تقوم بعملها الكائنات بدون 
برمجة مسبقة من قبلك لان البرمجة موجودة مسبقا في النظام الأب نظام التشغيل لذلك فإننا نسمي 
هذه الخاصية الوراثة فمثلا الفورم يعرف كيف تكبره وتصغره بدون برمجة مسبقة لهذا الأمر.) 
(اقراً الفصول من 1 إلى 4). 

الكلاس (ككهاح): 


الكلاس أو القالب عبارة عن قالب لكائن أو أكثر والذي يحدد فيه ماذا يفعل هذا الكائن. وعليه 


فالكلاس أو القالب يحدد ماذا يجب أن يفعل الكائن وليس الكائن نفسه. في الفيجوال بيسك 2008 


تستطيع استخدام القوالب الموجودة ضمن بيئة التطوير مثل ١.۸3۸‏ ءل أو 

ystem. Windows. Forms. OM‏ لبناء قوالبك الخاصة ووراثة الخصائص والطرق 
6 والأحداث من القوالب المذكورة (الوراثة تسمح للقالب الذي تنشئة بأخذ الخصائص 
وطريقة التعامل من قالب ككها٤‏ أخر موجود مسبقا). في الفصلين 5 و 16 سوف تعرف أكثر 
عن الكلاس. 


: (Namespaces) slaw تالlجم‎ 


مجالات الأسماء (فضاءات الأسماء) عبارة عن مكتبات أو قوالب ك#ءءهاع مرتبة تحت اسم 
معين متل 0WsSل System. Wi"‏ أو System .Diagnostics‏ اتصل إلى هذه الفئات 
(565كها)) لابد أن تكتب ءاام "| في أعلى الفورم متبوعا باسم مجال الأسماء المحدد. للمزيد 
انظر الفصل الخامس. 

)۴٣٥ م٤۴‎ ۲٣۲۷( الخصائص‎ 

الخاصية هي عبارة عن قيمة معينة محمولة بواسطة كائن معين. فمثلاً الزر 8۷0١‏ لدية خاصية 
النص ×۲۴ هذه الخاصية تحدد ما هو النص المكتوب في الزر. وكذلك الخاصية |٣١۵٥‏ والتي 


تحدد مسار الصورة التي على الزر. في فيجوال بيسك تستطيع من تغيير الخصائص وقت التصميم 
بسهولة من نافذة الخصائص وكذلك يمكنك تغيير الخصائص وقت تنفيذ البرنامج بواسطة الكودء 


القاعدة العامة لتغيير الخاصية کالتالي : 
Object.Property = Value‏ 
فمثلاً يمكن تغيير خاصية النص في الكائن الزر كالتالي: 


”Button1. Text = “Hello 


.Hello 


:(Event Procedure) الأحداث‎ 


الأحداث هي عبارة عن كود معين يتم تنفيذه عندما تتم معالجة كائن ما في البرنامج فإذا لدينا الزر 
t1‏ فالحدث ٤)1٤)‏ يحدد ماذا يقوم البرنامج بتنفيذه في حالة النقر على الزر. تستطيع كتابة 


أوامر معينة لتغيير بعض الخصائص في البرنامج وكذلك لتنفيذ أوامر معينة في البرنامج. 
الطرق :(Methods)‏ 


الطرق كله N6‏ هي عبارة عن أوامر برمجية معينة لتقوم ببعض الأعمال أو تنفذ خدمات معينة 


لكائن معين في داخل البرنامج. الكود سيكون كالتالي: 
(Object.Method (Value‏ 

كائن .طريقة(قيمة للطريقة) كالمثال التالي: 
(ListBox1.ltems.Add (“Books‏ 


في الكود أعلاه استخدمنا الطريقة ۸١١‏ ومعناها أضف (فعل أمر) كلمة sء)هه8‏ إلى البنود 
الخاصة بالكائن 160×1ءآا (القائمة). 

يوجد بعض التقارب بين الخصائص ك۲1۴ ٥م٠۴۲‏ والطرق كل "٤1٥‏ ولكننا نستطيع أن نفرق 
بينهما بواسطة مكانهما في الكود البرمجي. و الأمثلة أعلاه توضح ما تكلمنا عنه وسوف تعرف 
أكثر عن الطرق و الخصائص خلال الفصول من الأول إلى الخامس. 


أدوات لجلب المدخلات من المستخدم 


تقدم بيئة الفيجوال بيسك العديد من الأدوات لجلب المدخلات من مستخدم البرنامج صناديق النص 
٠٦ €×80×‏ القوائم كا" ۸8 تقوم باستقبال المدخلات بواسطة النقر عليها بالماوس أو باختيارها 
بواسطة الكيبورد. صناديق الحوار وسيلة من وسائل اخذ المدخلات من المستخدم هناك العديد من 
الأدوات الأخرى التي سوف نعرف RadioButton« CheckBox« List80X« lia ÎI ie‏ 
×00"5080. هذه الأدوات وغيرها من أدوات بيئة التطوير تقوم بأخذ المدخلات من المستخدم 
فمثلاً ال R208 u0‏ قد يوكل إليها معرفة ما إذا كان الشخص ذكرا أو أنشى. أما ال_ 
"€٤۳۸80×‏ فنستخدمها في حالة إذا ما أردنا من المستخدم اختيار أكثر من خيار فمثلا نريد من 
المستخدم اختيار الأحجار الكريمة التي يحبها بعض المستخدمين سيختار العقيق والزمرد والبعض 
الأخر سيختار العقيق واللؤلؤ والبعض الآخر سيختار اللؤلؤ والمرجان والزبرجد. الأداة ×1580] 
تتيح لك اختيار أكثر من خيار بطريقة التظليل واستخدام الزر .)٣)‏ ال ×5080 K0‏ يتيح لك 
اختيار واحد ولكن من قائمة منسدلة من الخيارات والاقتراحات. سوف تتعرف أكثر على هذه 
المكونات والأدوات في المستقبل وسنقوم بتصميم برنامج يحتوى على معظمها. الآن سنقوم بتصميم 
برنامج يحتوي على المكون ×80)عh):‏ 


قم بإنشاء مشرو ع جديد وقم بتسميته ×0 ۸٥٤۳۸8‏ ٣ل»‏ بعد ظهور الفورم قم بإضافة المكون 
Cnec)80>×‏ إلى الفورم (قم بإضافة اثنين من ال ))۸٥۴٤۸80×‏ واجعل احدھما فوق الآخر ثم 
أضف اثنين صناديق للصور ×۲۴80 ۴11۷ء وبعد ذلك قم بتعديل بعض الخصائص للمكونات 
التالية كالتالي: 

الكائن الكاتة التعديل اللازم 


Yes Right ToLift Form1 


الخاصية أعلاه تجعل الفورم يظهر من اليمين إلى اليسارء» وتذكر دائماً إن قابلية الوراثة الموجودة 
ضمن بيئة الفيجوال بيسك تنقل لك بعض الخصائص (مثل الخاصية أعلاه من الفورم إلي بقية 


E SNN WES EN E AE 
الخاصية من اليمين إلى اليسار ولا نحتاج لتغيير هذه الخاصية لكل مكون على حده. تحویل اتجاه‎ 
ارم و اله ا ر کک کر اه ات‎ 


المستخدمون العرب على البرامج ذات الواجهة العربية. 


Text CheckBox1‏ اله اة 

True Checked CheckBox1 

Text CheckBox2‏ أله ونر 
Stretchlmage SizeMode Picture Box1‏ 
Image PictureBox1‏ اط غ رر و اکر 


صورة الآلة الحاسبة الموجودة 
في المرفقات ملف 005 


Stretchlmage SizeMode Picture BOX2 


Image PictureBox2‏ اضغط على الزر واختر 


في المرفقات ملف 005 


بعد إضافة المكونات وتعديل الخصائص المطلوبة سيظهر لك الفورم بالشكل التالي: 


Fom1 E EK! 


اله خاسبة 


الآن هل تستطيع أن تعرف ماذا نريد من البرنامج» نريد من البرنامج في حالة تأشير خانة الآلة 
الحاسبة إظهار الآلة الحاسبة وفي حالة تأشير آلة التصوير إظهار آلة التصوير. طبعا في الحالة 
الطبيعية (أي بعد تشغيل البرنامج سيتكون خانة الآلة الحاسبة مؤشرة وعلية فستكون صورة الآلة 
الحاسبة ظاهرة أما خانة آلة التصوير (تذكر أننا جعلناها مؤشرة في الحالة العادية عند تعديل 
خصائص المكونات) فلن تكون مؤشرة وعلية فصورة آلة التصوير لن تكون ظاهره). عرفنا كيف 
سيكون البرنامج في الحالة العادية ولكن كيف سيكون في حالة تأشير خانة الآلة الحاسبة أو خانة 
آلة التصوير هذا لابد أن نجيب عنه في مرحلة الكود: (ستلاحظ تكرار بعض التعليمات أكثر من 
مرة بين هذا الفصل والفصل السابق لكن في حالة إذا ما كنت مبتداً فهذا سيعطيك معلومات 


إضافية) 
مرحلة الكود: 


اضغط )ع))-عا00ub‏ على 0×1 K8ءعطعواكتب‏ الكود التالي(ستلاحظ إن بيئة التطوير تنقلك 
إلى انحدGث CheckBox1 — glتill CheckedChanged‏ (: 


تعن ان اة کر ور08 اتن ان ٠‏ اة مزفرة. الشحهة اطا الحة `" 
الكود في الاسفل يقول اذا كانة الخانة مؤشرة فقم بالتالي ' 
If CheckBox1.CheckState = 1 Then‏ 
هذه هي. الاق اهمزر اال يبتقذها البرتامج ف خالة صجة الشرط اعلاة ' 


قم تبإاظهارن الضورة الموخوردة شمن السار احكة " 

مسار الصورة قد يختلف في جهازك عن المسار الموجود ' 

في جهازي لذلك تنبة وقم بكتابة المسار الصحيح للصورة ' 

PictureBox1. Image = System.Drawing.Image.FromFile _ 

("C:\Documents and 
Settings\Administrator\Desktop\vbsbs\005\calc. jpg") 

الامر السابق كان لتحميل الصورة في صندوق الصورة' 

اها الأفز "اتتا قهن لاأظهانر الضوررة اشملة ف ضتدذوق الصورة لاها قد °١‏ 


تكون حخفية 
PictureBox1.Visible = True‏ 
تقتبة للاقر الموجودة في السطر التال فهو اخد اهم الأو اهن الشزرطية ' 
الاقز التالي مغتاه كل شي غير ماسيق 1 
اي ١5١‏ صادقتك آي أي آي آي أي خالة ليسة كاخالة او كاخالات السابةقة ' 
کم الان 
Else‏ 
إخفاء الصورة في صندوق الصورة' 
PictureBox1.Visible = False‏ 
EBC Ê‏ 
ERG. Sub‏ 


Private Sub CheckBox2_CheckedChanged (ByVal sender As System.Object, ByVal 
e As System.EventArgs) Handles CheckBox2.CheckedChanged 
If CheckBox2.CheckState = 1 Then 
PictureBox2. Image = System.Drawing.Image.FromFile _ 
("C:\Documents ãnd 
Settings\Administrator\Desktop\vbsbs\005\copier. jpg") 
PictureBox2.Visible = True 


Else 


PictureBox2.Visible = False 
ERG. TÊ 


نظ ف كد مور كك اء كن لكر هذه الور لكر فط ول قحل ضفن خماة اة 
الكود» والدليل على ذلك وجود الحرف ' في أول السطر. ثم ننقر e-٣)‏ ااuام0‏ على ال 
2٥ط‏ ونکتب الکود التالي: 


If CheckBox2.CheckState = 1 Then 

شاكة شن امسا التابع للضورة ي جهازك وق متغبرة ١5ا‏ لزم الإمر ' 
PictureBox2. Image = System.Drawing.Image.FromFile _‏ 
("CS \DocUMERES., and‏ 
Settings\Administrator\Desktop\vbsbs\005\copier. JP")‏ 

PictureBox2.Visible = True 

Else 
PictureBox2.Visible = False 
ENd :TÊ 


قم بالنقر )٤1)٣-عاطنام0‏ على الفورم سينقلك مباشرة إلى الحدث |0١4‏ التابع للفورم قم بكتابة 
الكود التالي لإخفاء صورة آلة التصوير في الحالة الطبيعية (لحظة تشغيل البرنامج): 


PictureBox2.Visible = False 


قم بتشغيل البرنامج بالضغط على ۴5 وقم بتأشير خانة الآلة الحاسبة والعكس ولاحظ ظهور 
واختفاء الآلة الحاسبة. 


ستجد نسخة من المشروع أعلاه مع المرفقات في المجلد رقم 005 


في المثال أعلاه تعرفت على احد أنواع استقبال المدخلات من المستخدم فعندما يقوم المستخدم 
بتأشير الخانات فهو يقوم في ذلك الوقت بإرسال مدخلات إلى برنامجك» هل تتذكر يوم تسجيك في 
احد المنتديات حينما طلب منك المنتدى تحديد ما إذا كنت ترغب باستقبال رسائل من الأعضاء في 
المنتدى» تأشيرك لذلك المربع يعني قبولك استقبال رسائل من أعضاء المنتدى ويعتبر نوع من 


أنواع الحصول على المدخلات من المستخدم. 
برنامج المدخلات التجريبي: 


لديك الآن خبرة لا باس بها في ال ×۸80٤۸۴ع‏ وكذلك في الأحداث والخصائص والمكونات. 
الآن سأعطيك برنامج مدخلات تجريبي لترى كيف يمكن الاستفادة من بعض المكونات في معرفة 


مدخلات المستخدم 


البرنامج في المرفقات الملف رقم 006 بعد فتح البرنامج ستجد البرنامج كما في الشاشة التالية: 


اختر نوع الجهاز لإجباري) lT‏ 
ListBox]‏ 


ل کسیوتر ماقسوش 


کصبیوتر محصول 


مجدات صتبية 3-0 
هاتف 
| ] الة حاسية 


لقا ا ا 


شغل البرنامج بالضغط على ۴5 وجرب الخيارات الموجودة في المشروع مثلا: كمبيوتر مكتبي أو 


محمول ثم اختر هاتف وآلة حاسبة مع آلة تصوير ثم لاحظ التغيرات على الفورم. 
مرحلة الكود: 


بما أننا قد تعرفنا سابقا على العديد من مراحل الكود وطريقة كتابة الأكواد ولم كتبنا الكود بهذه 
الطريقة (ستلاحظ أننا سنقلص من الشرح الممل للكود). قمنا باختصار بعض الكود ببعض الطرق 
في المثال أعلاه» لاحظ أن هناك عدد ثلاثة لنوع الجهاز وفي كل مرة تختار نوع الجهاز تظهر 
صورة للجهاز المختار سواء كان محمول أو مكتبي أو ماكنتوش. أما ال 580×1أا فيحتوي 
على أربعة بنود مع تلاثة خيارات من المعدات المكتبية وخيارين للدفع بينما يوجد فقط ستة 
مربعات للصورة فكيف تم ذلك» لاحظ أن اختيار نوع الجهاز واختيار احد البنود في قائمة 
1اا أو اختيار طريقة الدفع يسمح لك باختيار بند واحد فقط ولا يسمح لك باختيار أكثر من 
خيار وعلية فقد تم وضع مربع صورة واحد لكل قائمة من القوائم أعلاه وعليه فقد وفرنا العديد من 


صناديق الصور والعشرات من الأسطر في الكود. فقط المعدات المكتبية تم وضع مربع صورة 


لكل خيار بسبب أن الخيار مفتوح لاختيار أكثر من بند. قم بعمل )|ًا)-3۸أR‏ على الفورم في 
المشروع المرفق رقم 006 ثم اختر عله ۷1W‏ ثم لاحظ الكود أولاً ثم ضع الكود التالي تحت 
الحدث 100 التابع للفورم ليتم تنفيذ الكود أول ما يفتح البرنامج: 


RadioButton1.Checked = True 
LISsEBOxX1: Ttems. AdIRangeê (New 0(5 Je) {" خٿlم" هارة كازجي" "طاتعة":‎ 


( "فقوتل "م "ماغات 
اسر لرل من الكود ليتم اختيار 1١0ا‏ 106كه۸ (التابعة للكمبيوتر المكتبي) في الحالة 
الطبيعية (أول ما يفتح البرنامج). السطر الثاني من الكود يقوم بتعبئة ال 80×1ءأ1 بالبنود: 


هارد خارجي» طابعة» ماسح ضوئي»› سماعات . 


الكود التالي تابع RadioBut†011‏ تحت lلحدث :CheckedChanged‏ 


Pc.Visible = True 
Pc.Image = Global.Input.My.Resources. Resources. PComputr 


تم إظهار مربع الصورة وتحميل صورة الكمبيوتر له من ملف كععا۲ اه۸ المرفق مع 
المشروع. أما الكود الذي يليه فهو تابع لل ۸4410810١2‏ ويقوم بتحميل الصورة التابعة 
للماكنتوش أما الذي بعده فيحمل صورة الكمبيوتر المحمول لاحظ أننا لم نخفي الصورة الأولى 
الموجودة في مربع الصورة لأننا سنقوم بتحميل الصورة في نفس مربع الصورة وليس في مربع 
صورة آخر. 


الكود التالي يتبع المكون ٤۸80×1‏ ٥۸ح‏ تحت انلحدتGث :CheckedChanged‏ 


If CheckBox1.Checked = -1 Then 
Tel.Image = Global. Input .My.Resources.AnswMach 
Tel.Visible = True 
ESE 
.Visible = False 


لتوضيح الكود أعلاه انظر الصورة التالية: 


فعذات مكتيية 3-0 
شاتف 


الة خاسبة 


ال تصهير 


ستجد إن المربع إما أن يكون مختار أو ليس مختار وهذا ما يسمى بالبرمجة بالخيار ع8001 
ومعناه صحيح أو خطأ. صحيح أو خطأً (صحيح = سالب واحد» خطأً = صفر)٬للمزيد‏ حول 
u٥‏ صحيح أو عءاه۴ خطأ على هذا الرابط: (ل حامد الهادي عيد) 

http: / /vb4arab.com/vb/showthread.php?p=15891#post1 5891 

ففي الكود أعلاه طلبنا من الكمبيوتر التأكد إذا كان )٣۴٤۸80×1‏ مؤشر فإذا كان مؤشر يحمل 
صورة الهاتف وفي حالة العكس يقوم بإخفاء الصورة واستخدمنا نفس الكود مع ۸٥ ٤)80×2‏ و 
ee3مc.‏ الكود الذي يليهم للتعامل مع البيانات في القائمة 0×1 518ا وبما أننا امام أكثر 
من خيارين لم نستعمل أداة الشرط ۴| ولكننا استخدمنا أداة شرط جديدة هي ٥ه‏ اهام؟ء 
نستخدم ٤458‏ ع5 إذا كنا أمام أكثر من ثلاثة خيارات» وفي العديد من الظروف سنعرفها في 
الفصول اللاحقة. لنراجع بنود القائمة في وضع التصميم نلاحظ القائمة فارغة ولكن بعد تشغيل 
البرنامج نلاحظ وجود أربعه بنود عليها من أين أتواء من الكود الذي وضعناه في الحدث كلها 
التابع للفورم وهو : 


قارد خارجي". "طاتيعة": "ماسح ضوئتyq"<«‏ "{ )( ListBOoxl: Ttems.AddRange (New ©0b6)J6GÊ‏ 
(["" ماعات 


ففي حالة اختيار احد البنود أعلاه ستظهر صورته في مربع الصورة المسمى ×٥ل٣|اكا‏ (سميناه 
بهذا الاسم ليسهل علينا تذكره). للعلم قائمة ال ×550آا تقوم بترتيب البنود فيها من الرقم صفر 
وليس من الرقم واحد كما يظن البعض» لذلك فإذا ردنا اختيار البند الأول فإننا نختار البند رقم 


صفر» وإذا أردنا اختيار البند الثاني فإننا نختار البند رقم واحد وهكذا. دعونا نتأمل في الكود 
التالي: 


Select Case ListBox1.SelectedIndex 


Gasê: 0 
LstIndex. Image = Global. Input .My.Resources.Harddisk 
LstIndex.Visible = True 

Caê 1 
LstIndex. Image = Global. Input .My.Resources.Printer 
LstIndex.Visible = True 


Case 2 
LstIndex. Image = Global. Input.My.Resources.scanner 
LstIndex.Visible = True 


Caê 3 
LstIndex. Image = Global. Input .My.Resources.Headset 
LstIndex.Visible = True 


End Select 


السطر الأول يدعو الكمبيوتر لاختيار عملية الشرط بمعلومية الترتيب التابع للمكون 80×1ءآا 
فإذا كان البند المختار هو البند الأول فسينفذ الكمبيوتر الأوامر الموجود تحت كلمة 0 ٤45€‏ وقبل 
كلمة 1 ۵58 وهي إظهار الصورة التي تحددها له في مربع الصورة المحدد وإظهار الصورة في 
مربع الصورة. الكود الذي يليه تابع للمكون ۳5080×1 K0‏ تحت الحدث 
exchangedلndاectedاع‏ والذي يعني (تغير البند المختار في الكمبوبوكس) نلاحظ إن فكرة 
الكود التابع الكمبوبوكس نفس الفكرة السابقة في كود القائمة ×80ءآا. أما الكلمة ۴٩۵‏ في الكود 


فقد تعرفنا عليها سابقا في هذا الكتاب (اختبر معلوماتك!!!). 
ر ستجد نسخة من المشروع أعلاه مع المرفقات في المجلد رقم 006 
ستلاحظ أعلاه كيف تم استدعاء الصور للعرض بغير الطريقة التي تعلمتها مع التمارين 


السابقة (حيث تم استدعاء الصور من ملف اا۴ sمResourc Project‏ الموجود 


ضمن ملفات المشروع باسم ۸8501۲٣١85‏ التي يتم تحديدها من الخصائص- الخاصية 


-Image‏ ڌم Project Resources file‏ ثم ortمpصا‏ ثم نختار الصورة التي نرید 
لتقوم بيئة التطوير بنقلها إلى ملف ۸٥501۲٤٣٥١‏ ضمن ملفات المشروع)ء في الحقيقة 
تستطيع استعراض الصور في برنامجك بأكثر من طريقة حسب الحاجة وكذلك حسب 
مسار كل صورة على حده لذلك فهناك العديد من الطرق للاحتفاظ بالصور ضمن ملفات 
البرنامج» ولان بعض الصور لا تريد لها أن تنسخ إلى مكان أخر في الكمبيوتر مثل 


المشروع أو التطبيق للمزيد اذهب إلى التعليمات وابحث عن هذين الموضوعين: (1- 
How to: Create Embedded Resources), (2-Accessing‏ 
(Application Resources‏ 


استخدام المكون: 1٥ھ‏ ا Lin)‏ 


إذا صممت تطبيق أو برنامج ما وتريد أن تضع عنوان لصفحتك في أي فورم» كيف يتم ذلك لا 
تذهب بخيالك وتقول لي استخدم الليبل )6اه اء نعم تستطيع استخدام الليبل )6ه ا ولكن الليبل 
فقط لعرض النصوص لكنك تريد وصلة إلى موقعك على الانترنت بمجرد أن يضغط المستخدم 
عليها تنقله إلى صفحتك على الانترنت باستخدام المتصفح الافتراضي في نظام التشغيل. ممكن تقوم 
بتصميم برنامج يعمل على سيرفر على الانترنت وكيف سيقوم المستخدم بالتنقل» احتمال تقوم 
بتصميم متصفح للانترنت أو تريد أن تفتح صفحة من صفحات الانترنت ضمن برنامج بالاعتماد 
على قدرات الانترنت إکسبلورر |٤‏ إذاأ لابد من استخدام )#طها)” أا لهذا الغرض. 

قم بإنشاء مشروع جديد وتسميته ب ١/۷٥1-1٣۸‏ بعد فتح الفورم ضمن بيئة التطوير قم بإضافة 
المكون )6ه ا٣ا‏ إلى الفورم قم بتغيير الخاصية ×1۴ إلى 'منتدى فيجوال بيسك للعرب"' 
والخاصية كأء۸۷İ"‏ 1ا إلى ٥ا٣1‏ لتغيير لون النص في حالة زيارة الموقع على الانترنت. قم 


بالنقر على الفورم واختر الخاصية ٣٠×‏ التابعة للفورم وقم بتغييرها إلى: "فتح صفحة انترنت" قم 


بتغيير الخاصية #3۸١٠11۴‏ إلى ۲٠١‏ (الشخص المتابع من البداية يعرف لماذا هذه التغييرات) 


سيكون مشروعك بهذا الشكل: 


قم بعمل )٤1))-ع‏ اا0( على المكون 2561ا )٣ا‏ ستنتقل إلى منطقة الكود تحت الحدث 
ickedاc Link‏ نقوم باستخدام طريقة ۵٩٥٣ع"‏ (هل تتذكر ۸0١‏ ٤ع[!!!)‏ لفتح صفحة انترنت 
باستخدام المتصفح الافتراضي في النظام (والذي غالباً ما يكون ل Internet Explorer‏ أو 
Opera‏ أو »)۴ire۴٥×‏ کما في هذا الکود: 

System.Diagnostics.Process.Start ("http://vb4arab.com/vb/") 
بغخض النظر عن المتصفح‎ |١۴۲٣ ۴٤ ٤×م)0۲۵١ ماذا إذا رأينا تشغيل الوصلة التي نرید في‎ 
حتى إذا كان المتصفح‎ |٤ الافتراضي» بعبارة أخرى نريد أن نشغل وصلة المنتدى أعلاه في ال‎ 
ولكن بطريقة مختلفة‎ )06 0١ )۴٣هععوك الافتراضي هو الفايرفوكس. وعلية نستخدم الطريقة‎ 
كهذا الكود:‎ 


System.Diagnostics.Process. Start ("IExplore.exe", "http://vb4arab.com/vb/") 
أو نكتب اسم البرنامج بين علامات التنصيص " ثم علامة الفاصلة »› ثم موقع الانترنت. هذه‎ 
بداخل‎ ٣٥×٤۴) ۴.ا×٤ الطريقة نستطيع استخدامها مع كل البرامج فمثلا إذا كان لدينا ملف اسمه‎ 
فنستخدم الكود:‎ W0۲١ نريد أن نفتحه ببرنامج‎ ۱:٤ القرص‎ 
System.Diagnostics.Process.Start ("Winword.exe", "c:\Textfile.txt" ) 


وعليه فالطريقة ۴۲١٤٣655‏ مفيدة جداأ لفتح الملفات والبرامج. 


قم بنذ بتشغيل البرنامج أعلاه وشاهد كيف يتم فتح صفحة الانترنت» وكيف يتم تغيير لون الوصلة في 


خلاصة الفصل الثالث: 
إذا أردت أن 

إضافة صندوق للنص 
إضافة زر 


تغير خاصية وقت 


تشغيل البرنامج 


إضافة زر الراديو 


إضافة زر تأشير 
إنشاء قائمة ×8650ءآا 
اا ا ا 


إضافة بنود للقائمة 
ListBOoX‏ 


ر مج نة فن اشرو أغا مم المرفقات فى الج رف 007 


قم بالتالي 
أضف المكون ٣۴×80×‏ إلى الفورم 
ضف المكون 0۸ا8 إلى الفورم 


"TextBox1. Text = "Hell0 : نستخدم الكود مٿل‎ 


أضف المكون ۸20108٤0١‏ إلى الفورم» في حالة هناك أكثر من 
زر راديو فيجب تجميع الأزرار ذات الهدف الواحد في المكون 


.GrOUpBOX 

أضف المكون K٣ ٥۴٤۸80×‏ إلى الفورم 
أضف المكون ×80آا إلى الفورم. 
أضف المكون ×5080 K0"‏ إلى الفورم. 


استخدام الطريقة ۸۵٩0‏ تحت الحدث 104 التابع للفورم أو تحت أي 


(ListBox1.Items. Add ("Pri ^ حدٿ مناسب كالتالي:€۲†‎ 


کر الكود كما المثال التالي: 
هذه جملة تذكيرية ' 
فتح صفحة انترنت نضيف المكون ٥)‏ )”آ1ا الفورم ثم نستخدم الطريقة 


Process. Start‏ في منطقة الكود التابع للمكون )٥طه‏ )”1ا 


الفصل الرابع:التعامل مع القوائم ا٣‏ وصناديق الأدوات ٣١‏ ط|امه ٠‏ وصناديق الحوار 


.Dialog Boxes 


في البداية نريد أن نتذكر أننا درسنا في الفصل السابق كيفية التعامل مع المدخلات من قبل 
المستخدم سنبدأً في هذا الفصل بتعلم القوائم وأشرطة الأدوات وصناديق الحوار (التعامل) لنعرف 
ما هي القوائم والأشرطة ونوافذ الحوار نستعين بالصورة التالية من برنامج ال ه٣٤۸‏ برنامج 


Edit 


Ctrl+W 
Ctrl+S 


Ctrl+Shift+S 


Ctrl+P 


n > > 
Print Setup... 
ا‎ 


mm 
عند الضغط على متل هذه القوائم‎ 


Microsoft Visual Basic 2008 Sl ۴ 1 5‏ 1 
you used several Microsoft Visual Si‏ انی کیا اف اظ ب قاتا ت ا 
لنا نواقذ جوار 


e or she used a program. In this chap 
Ş creating professional-looking menus, te 


E ن‎ 
Exit 
A menu is located on the menu bar and contains a list of related commands; a toolk 
tains buttons and other tools that perform useful work in a program. Most menu ar 


المكونين الذين سنتعلمهما في هذا الفصل هما القوائم 5١ع‏ وأشرطة الأدوات 
مه" . القوائم وأشرطة الأدوات تضيف منظر جمالي واحترافي للبرامج التي تقوم 


إضافة القوائم باستخدام المكون MenuStrip‏ 


باستخدام المكون م ٣5لا "8٣‏ يمكنك إضافة القوائم إلى برنامجك وكذلك يمكنك التعديل على 
القوائم الحالية إضافة اللمسات الخاصة على القوائم مثل مفاتيح الاختصار وعلامات تأشير 
تستطيع إضافة القوائم الأساسية لبرنامجك بضغطة زر بدون تعقيدات. طبعا بعد إضافة القوائم 
لبرنامجك لابد من إضافة الكود لهذه القوائم لان بيئة التطوير تساعدك فقط في تصميم القو ائم» 
افتح مشرو ع جدید وقم بتسمیتھه [6۸U‏ بعد ظھور الفورم اسحب المکون "۸U 5٣١p‏ إلی 
الفورم. طبعا بيئة التطوير لن تقوم بوضع المكون فوق الفورم مباشرة كما انه زر أو ليبل ولكنه 
سيظهر كما في هذه الصورة: 


MEBE ES- REFAN Ba BIRA 


xXOQ|OOL 4 


يوجد فرق هنا بين نسخة الفيجوال 6 ونسخة 2008 ففي فيجوال بيسك 6 كان مكون 
القوائم يظهر على الفورم وليس تحت الفورم. وكانت تظهر معظم المكونات على الفورم 
حتى المكونات التي لا تشاهد مثل ال-۲٥ ١٣‏ وغيره من المكونات كانت تظهر على 
الفورم وقت تصميم المشروع. لكن نسخة 2008 تضع المكونات التي لا تظهر وقت 
التشغيل مثل القوائم والمؤقتات ١1۳6۲١‏ في خانة خاصة أسفل الفورم تستطيع منها 


التعامل معهم مثل حذفهم وتغيير خصائصهم منها وليس من الفورم. 


بالنسبة للقوائم ستلاحظ وجود مكان لها أعلى الفورم بعد إضافتهاء تستطيع منها إضافة بنود جديدة 


في القوائم. 


اذهب الى اعلى الفورم للقائمة عند المكان المكتوب فيه ١٠١٠١‏ عمل" واكتب التالي في السطر 
الاول "الوقت' و 'التاريخ' في السطر الثاني و "الساعة" في السطر الثالث ليظهر الفورم بعدها بهذا 
الشكل : 


انقر فوق الفورم لتخرج من مصمم القوائم. 


إضافة مفاتيح الوصول: 


مفاتيح الوصول هي تلك المفاتيح أو الحروف التي تضغطها بالإضافة إلى زر الكيبورد )۸ لتصل 
ال رر مان رزار القوائم في البرنامج. فمثلا في برنامج 2008 ٥ال‏ ںا؟ أهلاءآ۷ تستطيع 
الوصول إلى قائمة ۴1# بالضغط على مفتاح الوصول ۴ بعد الضغط على الزر ا۸ء بعد فتح 
قائمة ۴1۵ تستطيع الوصول إلى ۸۴W ۴۲ هز٥ ٤٤‏ بالضغط على الحرف ۴؛ تستطيع أن تعرف 
إن الحرف الفلاني هو حرف الوصول إلى الأمر المعين بمشاهدة الحرف الذي تحته الخط في ذلك 


الأمرء فالحرف الذي تحته الخط هو حرف الوصول إلى ذلك الأمرء انظر الصورة التالية: 


a a e EU O E EEE REESE EEE 
[El i E ~~ Qu bug Data Format Iools Tet Wir 
@- @ < 


S> E> B> pp 


8 
ME 


Cen | 


e Ctrl+O‏ ك 
Open WED Site... Shift+Alt+O‏ 5 
Eê | Open File...‏ | 

dd ۴ 


lı ١ 
Project انظر مقاتیجح الوصول‎ 


Save Forml.vb Ctrl+S [ء‎ J| 
Save Forml.vb As... 


Î | Save All Ctrl+Shift+5 


Export Template... 
LI | Pagesetup... 
Print... Ltrl+P 
Recent Files ۴ 


Recent Projects ۴ 


Exit 


لإضافة مفتاح الوصول إلى أي زر من آزرار القائمة اذهب إلى القائمة وادخل في الزر الذي تريد 
إضافة مفتاح وصول له وقم بإضافة العلامة & (الموجودة في الكيبورد فوق الرقم سبعه تستطيع 

اختيارها بواسطة 5۸1۴+7) قبل الحرف المراد اختياره مفتاح وصول. فمثلا في المثال السابق 

نضيف العلامة & قبل ال ق في الوقت وقبل ال ت في التاريخ وقبل ال س في الساعة ليصبح 
البرنامج بهذا الشكل: 


ر إضافة مفاتيح الوصول للقوائم باللغة العربية قد لا يتفعل وقت تشغيل البرنامج إذا كانت 
الإعدادات الإقليمية للويندوز انجليزية أو إذا كان الكيبورد مقلوب باللغة الانجليزية. 


لاحظ الخط الصغير الموجود تحت القاف والتاء والسين بسبب أنهم مفاتيح للوصول. 
قواعد عامة لإضافة القوائم لبرنامجك 
هناك قواعد عامه متعارف عليها لإضافة القوائم إلى برنامجك ومنها: 


١-ابدأً‏ كل بند من القوائم بحرف )همه في حالة القوائم باللغة الانجليزيةء واحرص ان يكون كل 
بند عبارة عن كلمة واحدة أو اثنتين كحد أعلى. 
وظيفة بنك هن بثوة القائمةء فمثلاً لإغلاق البرامج | ستخدم الكلمة 'إغلاق' ولا تستخدم كلمة غريبة 
مثل 'روح'. 

۳- أضف مفاتيح للوصول لكل بند في قوائمك ويفضل أن يكون مفتاح الوصول هو الحرف الأول في 
البند إذا بالإمكان. 

٤-قم‏ بجعل كافة البنود المتشابهة تحت قائمة واحدةء فمثلا البنود الخاصة بالغلق والفتح والحفظ 
والطباعة تحت قائمة واحده. 

-٥‏ إذا كان لديك بند من بنود القائمة يستخدم طريقة 0١/0۴۴‏ الفتح والغلق قم بإضافة زر تأشير كا 


بجانب البند فإذا كان مؤشر معناه مفتوح والعكس بالعكس. 


-٦‏ أضف ثلاث نقاط لزر القائمة الذي سيفتح لنا نوافذ حوار أو سيطلب من المستخدم معلومات إضافية 


في کال شط ف وو اة يطلب من المستخدم تحديد عدد الصفحات المراد طباعتها في 
الورقة الواحدة وكذلك نوع الطابعة ومقاس الورق وغيرها من المعلومات الإضافية ولذلك لزم على 


المبرمج إضافة ثلاث نقاط ... لمثل هذه الأزرار في القائمة وقت تصميم البرنامج. 


للعلم القواعد أعلاه ليست ملزمة للمبرمج لتصميم القوائم ولكن المبرمج الذي يريد تصميم البرامج 


المعيارية أو وفق المعايير عليه/عليها إتباع القواعد أعلاه وغيرها من معايير القوائم وانظروا !إ 
ریه او و يیر باع وعیرها من معاییر لم و واي 


البرامج العالمية المشهورة ستجد إن مصمميها اهتموا بهذه المعايير. 


هذه الخاصية (إظهار الخط دائما تحت مفاتيح الوصول) كالتالي: 
Control Panel>Display>Effects‏ 
لوحة التحكم ثم العرض ثم التأثيرات 


Control Panel>Display> Appearance>Effects 


لوحة التحكم ثم العرض ثم الهيئة أو الظهور ثم التأثيرات 


Control Panel >Appearance and Personalize> Ease Of 
Access Center> Make the Keyboard Easier to use> 
Underline Keyboard Shortcuts And Access Keys 

تم إضفاء المزيد من السهولة على استخدام لوحة المفاتيح ثم تسطير مفاتيح 


ا اة ر ورور قهن خط تفت خررف اضر ر ق ف 
الزضرل» رانا قوم نإظهار الط بعد الضغط على زر ٤أ‏ فى الكيررد. ولكن تفيل 


Windows2000 


Windows Xp 
WindoWws_ 


Server 2003 


Windows 
Vista 


الاختصار. 


نعود لمشروعنا أعلاه ۸/06١‏ لنقوم ببعض التغييرات على القوائم. فنقوم مثلا بتغيير ترتيب 
بنود القوائم فإذا أردنا جعل "الساعة" قبل "التاريخ" في القائمة نستخدم طريقة السحب والإلقاء فنقوم 


بسحب كلمة(بواسطة الماوس) 'الساعة" ونضعها قبل التاريخ في القائمة. 


ر أحذف بنك من بنود القاتمة تحدده بو اسطة المارس غ نضغط على #اا0 


مرحلة الكود 


نقوم بإضافة ليبل إلى الفورم إلى وسط الفورم لعرض التاريخ والوقت عليه وقت تشغيل البرنامج 
فيه. ستقوم بيئة التشغيل بوضع الاسم 5#11ه1 إلى هذا الليبل الذي قمنا بإضافتهء نقوم بتعديل 


بعض الخصائص الخاصة به كالتالي من نافذة الخصائص كع)٣٥م۴r0:‏ 


الخاصية الإعدادات 
False AutoSize‏ 

FixedSingle BorderStyle 
Tahoma, 14.25pt Font 
فار غ‎ Text 

MiddleCenter TextAlign 


قم بتحريك الليبل إلى وسط الفورم (لأنه سيظهر الوقت والتاريخ بداخله) كما في هذه الصورة: 


الآن نقوم بإضافة الكود لإظهار التاريخ وكود لإضافة الوقت في حالة اختيارهما من القائمة. 


قم بعمل -))1٤)‏ اداه( على القائمة على بند "التاريخ" ثم نكتب الكود التالي: 


Label1.Text = DatesString 


نضغط )٬)٣-عاطام0‏ على بند "الوقت" ثم نكتب الكود التالي: 


Label1.Text = TimeString 
قمنا بالكود أعلاه بتغيير النص في ليبل 1 إلى التاريخ في الكود الأول والى الوقت في الكود الثاني.‎ 


TimeString‏ تقوم باظهار الوقت بحسب الوقت ضمن نظام التشغيل› تستطیع تغیير وقت وتاریخ 
تام من لوحة التكم بامشخدام ارات الرقت والإعدادات الإفة. 
الخاصية ٣1 #5٣١4‏ تعرض لنا الوقت الحالي وتعتبر بديل للخاصية القديمة 


$Time 


ر برت ترف أك كى الأكرك الرمهاة في الول الخاس: السام فن ما اك 


ستكون واجهة الكود بهذا الشكل: 


Start Page” Faorm1.vh*| Formi.wb Desid n | r‏ ا 


At Form + [Î (Declarations) 
E] Public Class Forml 3 


5 Private Sub ğıylaJlToon1StripMenuItem Click (ByVal sender As System.Object, ByVal e As System.] 
| Label11.Tezt = DateString 
٣ End Sub 


1 Private Sub ielwuJIToao1S5tripMenuItem Click (ByVal sender As System.Object, ByVal e As System.E 
Label1.Tezt = TimeString 

٣ End Sub 

LEnd Class 


قم بتشغيل البرنامج ثم افتح القائمة واختر منها التاريخ ثم الساعةء ماذا تلاحظ ستلاحظ تغير النص 
الموجود في ليبل1 إلى التاريخ وكذلك إلى الوقت. قم بالضغط على الزر ۸)٤‏ تم اضغط على 
الحرف س» قم بالضغط على الزر ۸ ثم اضغط على الزر ت» ماذا تلاحظ ستلاحظ ظهور 
الوقت والتاريخ في 11٥ا‏ على الفورم. هذا معناه أن المفتاحين "س" و "ت" قاما بعملية تسهيل 
الوصول للبندين الساعة والتاريخ في القوائم التي انشأناها. 
في حالة ضغطت مفتاح ۸٤‏ ثم اخترت احد الزرين "س" أو "ت" ولم يتم إظهار الساعة 
أو التاريخ فهذا يعني أن لغة الكيبورد ليست اللغة العربية. قم بتغيير واجهة الكيبورد إلى 
العربية ثم اضغط مفاتيح الوصول لأنهما باللغة العربية. 


قم بإغلاق البرنامج. 


ستجد نسخة من المشروع أعلاه في المرفق رقم 008ء سيتم إرفاق المرفق كاملا بعد 
استكمال دراسة ال ص٣‏ †05ه" في الدرس التالي. 


نرجع إلى الكود أعلاه الذي يقوم بإظهار التاريخ: 

Label1.Text = DatesString 
تقوم بعرض التاريخ» السؤال يقول هنا هل توجد صيغ أخرى‎ 005٤۲1١4 عرفنا أن الخاصية‎ 
لعرض الوقت أو التاريخ» نعم يوجد صيغ أخرى لعرض الوقت والتاريخ بطرق أخرى (مثل‎ 
عرض يوم الأسبوع وكذلك الشهر أو الدقيقة) لاحظ هذا الجدول لتعرف العديد من الصيغ الهامة:‎ 


الخاصية أو الدالة 
TimeString‏ 
DateString‏ 


Now 


(Hour (date 


(Minute (date 


(Second(date 


(Month (date 


(Year(date 


(Weakday(date 


الوصف (كل البنود أدناه تعتمد على ساعة النظام) 
تظهر لنا الوقت الحالي. 
تظهر لنا التاريخ الحالي. 
تظهر لنا الوقت والتاريخ وكذلك صباحا أو مساءا. 


رقم الساعة في اليوم بحيث نكتب الوقت بين القوسين فيقوم الكمبيوتر 
بتحديد رقم الساعةء طبعا النتائج الممكنة بين 0 و 23. 


رقم الدقيقة في اليوم بحيث نكتب الوقت بين القوسين فيقوم الكمبيوتر 
بتحديد رقم الدقيقةء طبعاً النتائج الممكنة بين 0 و 59. 


رقم الثانية في اليوم بحيث نكتب الوقت بين القوسين فيقوم الكمبيوتر 
بتحديد رقم الثانيةء طبعاً النتائج الممكنة بين 0 و 59. 


رقم الشهر في السنة بحيت نكتب التاريخ بين القوسين فيقوم الكمبيوتر 
بتحديد رقم الشهر» طبعا النتائج الممكنة بين 1 و 12. 


رقم السنة مثلا عام "2000" عام "2005" الخ. 


يوم الأسبوع» النتائج الممكنة 'السبت" أو "الأحد' الخ. 


إضافة أشرطة الأدوات ك٣‏ هط|امه٣‏ باستخدام المكون صا †؟|اهه ۲ 


بإمكانك إضافة شريط للأدوات في برنامجك لتعمل بشكل لتقوم بنفس العمل التي تقوم به القوائم 
بحيث يختار المستخدم شريط الأدوات أو القوائم ويعتبر هذا نوع من التسهيل على المستخدم بحيث 


يستخدم الماوس أو الكيبورد ولديه أكثر من بديل للتعامل في واجهة المستخدم. توجد العديد من 


الإضافات والميزات لأشرطة الأدوات حيث يمكنك إضافة فواصل وصناديق تأشير كا ومكان 


للنصوص وكذلك )٤ط1a‏ ر .€C0mb080×‏ 


اختر المكون أ٣‏ †5اهه٣‏ من قائمة الأدوات وقم بإضافته إلى الفورم» لا تهتم بمكان إضافة 
المكون على الفورم ستقوم بيئة التطوير بإضافة المكون إلى الفورم أوتوماتيكيا وسيظهر المكون 
تحت الفورم كما في المكون ص٣‏ u5"ع"‏ » بعد إضافة المكون ٠٠)5٣‏ اذهب إلى المربع 
الصغير أو المثلث الصغير في أعلى يمين المكون قم بالنقر عليه Insert Standards رتخl pi‏ 
٠ 5‏ ستلاحظ تكوين العناصر الأساسية في البرامج كما في هذه الشاشة: 


EE Formî1 - 8 


لسنا بحاجة الآن للعناصر الأساسيةء ولكن قمنا بإظهارها لمعرفة الخصائص والميزات التي تتمتع 
بها بيئة التطوير» لذلك نقوم بإلغاء أخر عملية ٥۸لا‏ بالضغط على .))٣)+Z‏ 


نقوم بإضافة اثنين 810١‏ لعناصر لشريط الأدوات»ء نضغط السهم الصغير في صأ٣†5)ا0ه‏ ا 
ونضيف الاثنين ال ١0ا8‏ تم نذهب إلى الخصائص ونسمي احدهم ١8)ع‏ ها والآخر 
t7‏ اذهب للخصائص التابعة لهما ثم قم باختيار الخاصية |١۵48‏ واختر صورة الساعة 
للأولى وصورة التقويم للثانية (صورة الساعة والتقويم مرفقة مع المشروع 5ا008). لإضافة الكود 
علينا أن نتذكر أننا لا نريد أن نخترع كودا جديدا وإنما نريد إضافة نفس الكود السابق للزرين 


المضافين بحيث يستطيع المستخدم الاختيار من القوائم أو من شريط الأدوات. 


ننقر ٤)‏ ذاء-عاطاه0 على المكون الأول في شريط الأدوات ثم نكتب في سطر الأوامر الكود 
التالي: 

ãelwJlToolStripMenuItem_Click (sender, e) 
ركز في الكود أعلاه من أين نقلنا الكود انه من كود القوائم الموجود في الأعلى» فبدلاً من أن‎ 
نرهق أتفسنا بكتابة الكود من جديد قمنا بكتابة اسم الدالة الموجودة في الكود مسبقا لتنقل لنا الأكواد‎ 
الموجودة ضمنها مسبقا. ننتقل إلى المكون الثاني في شريط الأدوات وبعد الضغط -عاطلاهل‎ 
مااع والانتقال إلى منطقة الكود نكتب التالي:‎ 


ToolStripMenultem_Click (sender, e)‏ التڌتاریخ 


نفس الطريقة التي كتبنا بها الكود بالأعلى. 


نقوم بتشغیل البرنامج ونجرب استخدام الأزرار الموجودة في شريط الأدوات» سنلاحظ ظهرر 
التاريخ وكذلك الوقت في المكان المحدد في الفورم. 


الآن سنذهب بعيداً بعض الشيء عن التاريخ والوقت» تعالوا لنجرب تغيير لون النص داخل الليبل 
(طبعا النص سيكون تاريخ أو وقت). لتغيير اللون داخل الليبل ومن أجل الحصول على العديد من 
الخيارات لابد من استخدام ميزة جديدة من ميزات الفيجوال 2008 ألا وهي نوافذ الحوار ي0)اه¡0 


. Box Controls 
Using Dialog Box Controls استخدام iوlذ لحار‎ 


يحتوی الفيجوال 2008 على ثمان نوافذ ئاه٣ C0٣)‏ ×80 وماه0i‏ حوار جاهزة للاستخدام. للعلم 
فهي معده لك مسبقا لذلك فلا تحتاج إلى إعدادها من جديد وتستخدم للمهمات المشهورة والمتكررة 
مثل نافذة فتح ملف أو غلقه أو طباعته. لن تحتاج إلا أن تقوم بإدخال كود للأحداث المتوفرة ضمن 


المكون (نافذة الحوار)ء أما بالنسبة للتصميم فقد تم تصميمها مسبقا بحسب المعايير الموجودة مع 


نظام التشغيل الويندوز . للعلم هذه المكونات الثمانية تشابه المكون يماه¡0 00١07‏ الذي كان 


متوفر مع فيجوال بيسك 6 » إليك النوافذ الحوارية الثمانية المتوفرة ضمن بيئة التطوير 2008: 


اسم المكون 


OpenFileDialog 


SaveFileDialog 
FontDialog 
ColorDialog 
FolderBrowserDialog 
PrintDialog 


PrintPreviewDialog 


PageSetupDialog 


الهدف منه 
للحصول على ملف أو امتداد معين من الملفات من قرص معين من 
مجلد معين في الكمبيوتر للملفات الموجودة مسبقا. 

تحدد اسم القرص واسم المجلد وكذلك اسم الملف للملف الجديد. 
تسمح للمستخدم من اختيار نوع الخط وطريقة عرضه. 

تسمح للمستخدم اکتا لون مجدد :من مجمو غه الوان: 

تسمح للمستخدم من التنقل بين المجلدات واختيار مجلد معين. 

تسمح للمستخدم بتغيير خيارات الطباعة. 

تسمح للمستخدم بمعاينة المواد التي يريد طباعتها قبل الطباعة كما 
يفعل برنامج الورد. 

تسمح للمستخدم بتغيير خيارات الصفحة بتغيير الحدود للصفحة 


في المثال التالي سنتعرف على كيفية استخدام اثنين من المكونات اعلا وlak OpenFileDialog‏ 
وكذلك وهاه 0010۲0 المكون الأول سيسمح لك بتحميل صورة إلى الفورم والمكون التالي 


سيسمح لك بتعيير نوع خط صندوق نص معين. 


أنشئ مشرع جديد وقم بإضافة المكونات التالية للفورم : ×۲€×80 و عدد اثنين ١0ا8‏ وكذلك 
OpenFileDialog‏ و orDial0gاCo‏ ثم اضف ×۲۴80 اا۴ وقم بترتیبھم علی الفورم 
وتز ظیمهم بشکل مناسب. 


.Stretchlmage gle PictureBox في‎ Size M 0de قم بضبط الخاصية‎ 


واضبط بعض الخصائص كالتالي: 


الكائن الخاصية التعديل اللازم 
Text Button1‏ افر ك الور 


FileName  OpenFileDialos1‏ فاضي (بدون نص) 


Text ButtonZ‏ ا ا 


مرحلة الكود 


قم بإضافة هذا الكود للإجراء )ا التابع للزر 1١٥0))ا6‏ (لاحظ: تم شرح الكود بين السطور): 


نضح مرشح قلار لإختيازن تو عة دة من اللات ةد ' 
OpenFileDialog1.Filter = "Bitmaps (*.bmp) | *.bmp"‏ 
إذا تم إختيار صورة معينة بواسطة نافذة الجوار التي ظهرت فقم بالتالي ' 
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then‏ 
ضع صورة في صندوق الصورة ولتكن هذه الصورة هي الصورة المختارة من 1 


اة اواو 


PictureBox1. Image = System.Drawing.Image.FromFile _ 
(OpenFileDialog1.FileName) 
Bid. ZÊ 


لاحظ أننا عملنا مرشح لامتداد الملفات م0 فقط وعلية فلا يمكن اختيار ملف من غير هذه 


النوعية من الملفات. ثم حولنا الصورة المختارة إلى صندوق الصورة الموجود معنا. 


صندوق الصور المتوفر ضمن بيئة التطوير يظهر الامتداد التالية من الصور: ,م٣5‏ 
«emf, wmf, ico, jpg, jpeg, png, gif‏ 


ولإضافة امتداد أخر للفلتر أو المرشح فنقوم بإضافة الامتداد بعد الحرف | مثل هذا الكود: 
OpenFileDialog1.Filter = “Bitmaps (*.bmp) | *.bmp|Metafiles (*.wmf) |*.wmf”‏ 


فالمرشح في الکود أعلاه سیسمح للامتدادین 0۳ و ۷١۴‏ بالظهر فقط. 


السطر الثاني في الكود يظهر نافذة الحوار التي تسمح لنا باختيار الصورة المراده» لاحظ أننا 
استخدمنا 03)ھ¡5۸0W0‏ کبديل عن 5۸0W‏ التي کنا نستخدمها في فیجوال 6 لکن 
h0W‏ تستخدم لإظهار أي فورم. 50W 0ia104‏ ترجع لنا نتيجة وهي اختيار صورة 
محدده أو ملف معين أو عدم اختيار وتسمى هذه النتيجة )ك۸ وه اه0i.‏ فقد تكون هذه النتيجة 
اختيار صورة أو ملف معين )0 .)اكع ۸# وه اه0 وعليه فينفذ الأمر الذي أعطيناه وقد تكون 
النتيجة 10١8‏ .)اكع ۸R‏ وم اه0 فلا يقوم بتنفيذ الأمر الذي كتبناه له لأننا كتبنا له الأمر بصيغة 


۴ا بمعنى إذا الشرطية. ستعرف الكثير عن الجملة الشرطية ۴| في الفصل السادس من هذا الكتاب. 


لان سننتقل لكتابة كود لنافذة اختيار الألوان: )ءاء-عااuاه0‏ على الزر 2١0ا8‏ والذي هو 
لاختيار لون الخط تم نكتب الكود التالي بjı‏ bۆSub Private‏ ڪ, End Sub‏ : 


لإظهار مربع الالوان ' 
ColorDialog1.ShowDialog ()‏ 
تفن حون االتحض االو خوة ف مربع الفمق الل اتكون ااالخ ار 1 
TextBoxl1.ForeColor = ColorDialog1.Color‏ 


اضغط على ۴5 لاستعراض البرنامج. التحكم باللون المختار بتحديد خيارات مربع الألوان 
تستطيع تحديد الألوان المعروضة في مربع الألوان بواسطة تحديدها من نافذة الخصائص لمربع 
الألوان وه اها٥۲هاه)‏ أو بواسطة الكود قبل السطر الذي فيه وهاهاP ۸0W‏ في الجدول التالي 
تستعرض بعض الخصائص الخاصة بمربع الألوان وهاه۲0İهاه‏ . للعلم كل خاصية من 


الخواص التالية تستطيع تفعيلها بواسطة اختيار ٥د٣۲‏ أو عدم تفعيلها بواسطة اختيار عكاج۴ 


AllowFullOpen‏ تضبط على ۵د۲۲ لتسمح بالانتقال إلى وضع الألوان كاملة للاختيار منها. 
AnyColor‏ تضبط على ۵ا٣۲‏ للسماح للمستخدم باختيار أي لون من مربع الألوان 


FullOpen‏ نکی لے ۲ 8 رنت اهار کل وان من لذا ها قا اون 


المخفية تحت .Custom C0|OrS‏ 
ShowHelp‏ تضبط على ۵د٣۲‏ إذا أردت إظهار زر التعليمات م1٥1‏ في مربع الألوان. 


yا c00‏ | تضبط على ۵د٣۲‏ إذا أردت اختيار الألوان ال ك ذاه؟ فقط أما الألوان التي 


تنشأً من تداخل بعض بكسلات الألوان الأخرى سيتم إهمالها. 


لان تستطيع تشغيل البرنامج وللملاحظة يوجد نسخة منه في المرفقات المرفق رقم 009 للعلم 
تستطيع إضافة بعض التعديلات على البرنامج المرفق مثلا قم بتغيير طريقة عرض الألوان 
بالاستفادة من الجدول أعلاه للخيارات الممكنة لعرض الألوان وكذلك تستطيع إضافة امتداد جديد 
لملفات الصور التي ممكن أن يعرضها مستعرض ملفات الصور بالطريقة التي حددناها سابقا. 
إضافة نوافذ حوار غير متوفرة ضمن بيئة التطوير 

تستطيع إضافة صناديق حوار أو نوافذ حوار غير تلك المتوفرة ضمن بيئة التطوير 

بو اسطة إضافة ۴0١۳۳۶‏ إلى برنامجك وإضافة بعض الأكواد لمعرفة المدخلات 

والمخرجات كأuام0ut‏ لص utsمما‏ ستتعرف على المزيد في هذا الجانب في الفصل 


الرابع عشر وكذلك الفصل الخامس من هذا الكتاب. 


فائدة: إضافة اختصارات إلى برنامجك 


في برامج الأوفس (الورد والأكسل) وغيرها من البرامج ستلاحظ وجود اختصارات للعديد من 


الا بوك فال ارضرل ى لك ال بحرن الاحك الارن ى لراك ك الى اة 


المعنية. فمثلاً إذا أردت نسخ نص معين في برنامج من برامج الأوفس فإننا نقوم بتظليل ذلك النص 
ثم نقوم بالذهاب إلى القوائم EQ‏ ثم نختار ¥م0]. ولاختصار هذه المهمة الطويلة نقم بالضغط 
على الاختصار .٤]۲1+٣‏ ونريد ألان أن نتعرف كيف يتم تعيين هذه النوعية من الاختصارات في 
برنامجنا. نقوم بإنشاء مشرو ع جديد تم نضيف المكون ١٣5٣ع"‏ له ونضيف قائمة ۴|۵ في 
المكون ثم نضيف لها قائمتين فرعيتين وهما 4۳۴" و ٠۴1‏ ليصبح مشروعنا كما في الصورة: 


: Formi1.¥b [DesignJ* Start Page 


xDD 1 f 


Form 


= MenuStrip1 


نضغط )ءi)٣-عاطام0‏ على ٥۳ط‏ ثم نكتب الكود التالي لإظهار مربع نص للمستخدم كالتالي: 
MsgBox ("Marwan")‏ 
نضغط )ء)€-ع ام0 على ۴1٠ونضيف‏ الكود التالي: 
MSTEOR (OUI TET)‏ 
نجرب البرنامج بالضغط على ۴5 تم نختار ۸۳6۴ ماذا نلاحظ ثم نختار 161 ماذا سنلاحظ. 
بعدها نغلق البرنامج ثم نذهب إلى واجهة التصميم. نختار القائمة الفرعية ۳6۴" ثم نذهب إلى 
نافذة الخصائص التابعة للمكون نذهب إلى الخاصية كإع)† u‏ ٣۲اهم؟‏ نختار €٣)‏ تم الحرف N‏ 


كذلك نختار المکون ٥٥۴۸‏ تم نذھب إلى الخصائص الخاصیة eys‏ )ا u‏ ٣r۲ہh؟‏ نختار Ct)‏ ثم 


الحرف ۲ . بعدھا نقوم بتشغیل البرنامج بالضغط علی ۴5 ثم نضغط على C]١1+۲‏ سنلاحظ أن 


البرنامج يقوم بعرض صندوق الحوار الذي کان يظهره عندما نختار القائمة الفرعية ١a۳‏ 
بواسطة الماوس وذلك لأننا حددنا المفتاحين ۲1 والمفتاح ۲ كاختصار لتنفيذ الأمر المتوفر ضمن 


القائمة ۳۴" . ملحوظة توجد نسخة من البرنامج في المرفق 010 . 


خلاصة الفصل الرابع: 
من اجل أن 


إضافة مفتاح وصول للبند 


أشافة اختضار الك 


في الحالة العادية يقوم فيجوال بيسك 2008 بإظهار مفاتيح الاختصارات بجانب المكون 


(في حالة توفرها) مثل هذه الصورة 
المفاتيح بجانب المكون نقوم بضبط llخlصuة False yJe ShowShortcutKeys‏ في 
هذه الحالة ستبقى مفاتيح الاختصارات مفعلة إذا ضغط عليها المستخدم ولكن لن تكون 
ظاهرة أمامه. إذا أردت إظهار نص أخر بدل حروف الاختصار تستطيع ذلك بكتابة 


النص المراد ظهوره في الخاصية ١4‏ ١¥5†۲ه)مء¡nortcut)ey0‏ التابعة للمكون. 


Name Ztrl+N 


Tel Ltrl+T 


ولكن إذا لم نرد إظهار هذه 


قم بالتالي 

اضف المکون ۸٣U5٤‏ إلى الفورم ثم اذهب إلى ۳١6۴١٥‏ مم۷٣‏ في 
أعلى الفورم وأضف القائمة التي تريد وأضف لها فرو ع بالشكل المناسب. 
)icاC-eا0ubط‏ على البند المراد وأضف الحرف & قبل الحرف المراد 
جعله مفتاح للوصول. 


حدد البند ثم اذهب إلى الخصائص واضبط lلخlاصية ShortcutKeys‏ 


غل اللختضار الى ترك 


تغییر ترتیب عناصر 
القوائم 


إضافة شريط أدوات 


استخدام نافدذة حوار 


استخدام نافدذة حوار لفتح 


نوع من الملفات 


استخدام نافدذة حوار لفتح 


أضف المكون ٣٠٥5٤٣‏ إلى الفورم وقم بعمل )1)٣-٤۸يآR‏ على 
الأزرار لتنظمهم وتضيف أزرار أخرى ثم )ن)٣-عاطاه0‏ على أي بند 
لكا الكرة, الخاضن دة 


أضف واحدة من الثمانية المكونات التابعة لنوافذ الحوار (وتوجد تحت البند 
Dialogs and Printing Toolbars‏ مع بقية المكونات)إلى الفورم وقم 
بتغيير خصائصها من نافذة الخصائص. 

أضف المكون ١ه)اه1 ٥‏ ۴اآ۴٣٥عم0‏ إلى الفورم» لإظهار نافذة الحوار لابد 
من استخدام الطريقة FileName aيصlill .ShowDialog Method‏ 
تحتوي على اسم الملف الذي تم اختیاره. 

أضف المكون ١٥اه ٥١10٥۲٥‏ إلى الفورم» لإظهار صندوق الألوان نستخدم 
الطريقة ل0 Ne†‏ logاShowDia.‏ الخاصية 0۲)اهC‏ تحتوي على اللون 
الذي أختاره المستخدم. 


الجزء الثاني: أساسيات البرمجة 


من الفصل الخامس إلى الفصل الثالث عشر 


في الجزء الأول من هذا الكتاب "إبدأ مع الفيجوال بيسك 2008" تعلمنا كيف نبني برامج وكيف 


نتعامل مع بيئة التطوير. سيكون عنوان الفصول التسعة القادمة "أساسيات البرمجة" سوف تعرف 


الكثير عن مرحلة الكود في فيجوال بيسك وكيف يتعامل المعالج مع الأوامر البرمجية. سوف 
تتعرف على كيفية استخدام جمل الشرط والمؤقتات والمصفوفات وجمل الدوران 100١‏ والتعامل 
مع الملفات النصية. ستتعلم أيضا كيف تتعامل مع ال ١اط‏ (أو تجميع وتنقيح وتشغيل) 
البرنامج وكذلك كيف تتعامل مع أخطاء التشغيل بعد الفصل الثاني ستكون ذو قابلية اكبر للتعامل 
مع المواضيع المتقدمة في البرمجة لذلك ستتعرف بعد الفصل الثاني إن شاء الله على تنظيم 
المكونات في واجهة المستخدم» برمجة قواعد البيانات وكذلك على برمجة مواقع الانترنت. 
الفصل الخامس: المتغيرات والدوال وبيئة الدوت نت. 


الجمل البرمجية في فيجوال بيسك: 


كما تعلمنا في الفصل الثاني 'كتابة برنامجك الأول" سطر الأوامر في فيجوال بيسك يسمى الجملة 
البرمجية ١€"عاها؟‏ "mه۲aوه۴r‏ فالجملة البرمجية: هي عبارة عن ترابط منسق من الكلمات 
والخصائص والمكونات والمتغيرات والأرقام والمعاملات الخاصة والقيم الأخرى التي ترتب بشكل 
البرمجة عبارة عن كلمة وأحدة مثل: 
End‏ 
والتي تقوم بإغلاق البرنامج. أو قد تكون الجملة البرمجية عبارة عن مجموعة من المكونات 
المذكورة أعلاه مثل الجملة التالية: 

Label1.text = TimeString 
التي تحتوي‎ ۲1|" 5٤٣١4 التابعة للمكون 11٥5ه |1 إلى الطريقة‎ ٠۴× حيث أسندنا الخاصية‎ 
على الوقت الحالي» وبذلك سيتم إظهار الوقت الحالي في المكون 0#11ها. القواعد أو القوانين‎ 
أو بناء‎ Statement S۷ 2× التي لابد أن نتبعها من أجل كتابة جمل برمجية صحيحة تسمى‎ 


الجملة. هذه القواعد هي نفسها مع بعض التغيير القواعد القديمة الموجودة في النسخ القديمة من 


فيجوال بيسك 2008 وكذلك يتشارك فيجوال بيسك مع اللغات البرمجية الأخرى مع بعض 
الاختلافات اللازمة. لكي نتعلم بناء جملة برمجية صحيحة لابد من الاطلاع على هذه القوانين أو 
أساسيات بناء الجمل البرمجية وكيفية معالجة البيانات ضمن البرنامج لمكتب جملة برمجية 
صحيحة. وبصراحة لغة الفيجوال بيسك هي لغة برمجية سهلة تسهل على المبرمجين العديد من 
الصعاب لذلك فبناء برنامج بها سهل جدأً ويكون قريب من اللغة العامية في بعض الأحيان» كل هذا 
من اجل التسهيل على المبرمجين وجعلهم يفرغون عقولهم للأفكار الجديدة والتطويرية فبدلا من 
كتابة صفحتين من الكود لإنشاء فورم» تتم العملية فقط بو اسطة السحب الإلقاء بواسطة الماوس» 
وهناك العديد من الوسائل التي تبسط لنا البرمجة بالفيجوال بيسك. في نفس الوقت بيئة التطوير 
تساعدك في تحديد الأخطاء وتقديم الحلول الممكنة أو المقترحات الممكنة للمبرمج. في هذا الفصل 
وفي الفصول القادمة إن شاء الله ستتعرف على الكائنات والدوال والكلمات والطرق والخصائص 
الموجودة مسبقا في بيئة الدوت نت وسنتعلم كيف نستفيد منها لتطوير وتصميم برامج عملاقة. أول 
موضوع لنا في هذه السلسلة لابد من معرفة المتغيرات وأنواع البيانات لأنهما خطوة هامة جدا 
لمواصلة التعلم في هذا الكتاب. 


استخدام المتغيرات لحفظ البيانات: 


المتغير: هو مكان مؤقت لحفظ البيانات في برنامجك. تستطيع استخدام متغير واحد أو أكثر في 
برنامجك وقد تکون هذه المتغیرات کلمات أو آرقام أو تواریخ أو خصائص أو قيم أخرى مثل قيم 
النظام الثنائي 8۵۲۷ (صفر وواحد). باستخدام المتغيرات تستطيع تسمية كل نوع من أنواع 
البيانات باسم سهل التذكر ذو معنى مفيد ليساعد على تسهيل عملية البرمجة وتقوم المتغيرات بحفظ 
البيانات التي يدخلها المستخدم أو يتم جلبها من النظام أو من الشبكة أو غيرها من المصادر وقت 
عمل البرنامج 81١-١1۳۴‏ وقد تكون المتغيرات عبارة عن بيانات تمت معالجتها ببرنامجنا وقت 
عمل البرنامج نستطيع أن نستعرض البيانات المخزونة في المتغيرات على الفورم أو خزنها في 
قاعدة البيانات (خزنها بشكل دائم) لان المتغيرات تخزنها بشكل مؤقت فقط لحين إغلاق البرنامج 


أو للوقت الذي نحدده نحن. استخدام المتغيرات في بيئة التطوير يلزمنا بتخطيط لمعرفة ما هي 
المتغيرات التي نحتاجها لان حجز المتغيرات في برنامجنا مثل حجز كرسي في قاعة المحاضرة 


الو 
تعريف المتغيرات بواسطة الكلمة ص01: 


منذ نسخة فيجوال بيسك 2003 كان لابد على المبرمجين من تعريف المتغيرات قبل استخدامها في 
البرنامج» طبعاً هذا يعتبر تغيير في إستراتيجية فيجوال بيسك في فيجوال 6 والنسخ الأقدم حيث 
كان باستطاعتنا (وتحت شروط معينة) استخدام المتغيرات التي عرفناها بطريقة ضمنية - أي بدون 
استخدام الكلمة 01. الأسلوب القديم كان سهل ومرن للتعامل لكن كان فيه العديد من المخاطر 
التي واجهها المبرمجين حيث كثرت الأخطاء في طباعة اسم المتغيرات وكذلك الارتباك الذي 
يحصل بعدم تعريف المتغيرات مما يجعل البرامج تحتوي على ثغرات وأخطاء برمجية لم تكتشف 
في وقت البرمجة وإنما سببت العديد من المتاعب للمستخدمين . 

هناك إمكانية في فيجوال بيسك لتعريف المتغيرات ضمنيا كما كان في النسخ القديمة لكننا لن 
نوضح هذه الخاصية حتى نتأكد من أننا وصلنا إلى مرحلة متقدمة حتى نعرف جدوى وعدم جدوى 
هذه الطريقة من طرق تعريف المتغيرات. 

لنعرف متغير في فيجوال بيسك لا بد من استخدام الكلمة "01 (اختnصار (Dimensi0¬ —H‏ 
ومعناها برمجيا عرف أو اعتبر أن هذه الكلمة تأمر الكمبيوتر بحجز مكان في الذاكرة للمتغير 
وتسمح للكمبيوتر بمعرفة نوع البيانات التي سيتعامل معها. نستطيع تعريف المتغيرات في منطقة 
من الكود بشرط واحد وهو تعريف المتغير قبل استخدامه» معظم المبرمجين يفضلون تعريف 


متال: هذه الجملة البرمجية تقوم بتعريف متغير اسمه |45۳٥‏ ونوعه: متغير نصي» 


Dim LastName as String 
لاحظ في التعريف أعلاه الكلمة الأولى 01۳ وهي لازمة لعملية التعريف بعدها مباشرة‎ 
ومعناه‎ 5٣٣4 ومعناها ک بعدها مباشرة نوع المتغیر‎ A۸5 اسم المتغیر بعدھا کلمة‎ Last Nam٥ 
متغير نصي (المتغيرات النصية هي كل المتغيرات التي تحتوي على كلمات مثل الأسماءء الأماكنء‎ 
الرموز الخاصةء سطور من أي قصيدة أو مقالة» محتويات ملف» أو أي بيانات نصية) بالطبع‎ 
هناك أنواع أخرى من المتغيرات مثل التواريخ والأعداد وغيرها من الأنواع. نحدد نوعية المتغير‎ 
لنحجز المكان المناسب له في الذاكرة المؤقتة الرام» طبعا في البرامج الكبيرة عملية خزن البيانات‎ 
في الرام قد ينهك موارد النظام ويصل إلى مرحلة العجز عن معالجة البيانات لأنها اكبر من سعة‎ 
الذاكرة المؤقتة الرام (للعلم كل نوع من أنواع البيانات (الأعدادء النصوص» التواريخ) يحجز‎ 
مساحة معينة من الرام لذلك لابد من التنبه لهذا وقت البرمجة لكي لا نثقل على الذاكرة).‎ 


في النسخ القديمة من الفيجوال بيسك كنا نستطيع تعريف المتغيرات بدون تحديد نوعها 
بحيث تعتبر أنها متغيرات من النوع العام حيث تقبل أي نوع من أنواع البيانات وتسمى 
أي متغيرات بديلةء نسخة 2008 لا تدعم المتغيرات البديلة بشكل مباشرء 
بالرغم من سهولتها وإمكانية إسناد أي نوع من أنواع البيانات لها لكنها تسبب التأخر في 
برنامجك حيث يكون البرنامج بطئ وقت التشغيل. تستطيع استخدام هذه المتغيرات 
البديلة في نسخة 2008 بإسناد البيانات إلى النوع ا٣‏ ٥زط0‏ ليتم معاملتها وكأنها بيانات 
ثنائية 81١٣۷‏ (أو صفر وواحد) حيث يتم استخدام هذا النوع من البيانات لكل أنواع 
البيانات بشكل عام. 


بعد تعريف المتغير تكون لك الحرية بإسناد البيانات إليه باستخدام الإشارة = بعد المتغير مثل 


الجملة التالية التي تخزن الاسم "القحطاني" في المتغير 4٥‏ ه1 الذي قمنا بتعريفه سابقا. 


LastName = “ينlطحقلا”‎ 


وبما إن المتغير متغير نصي نستطيع إسناد أي كلمة أو جملة أو سطر أو نصف صفحة إلى 


المتغير كما في المثال التالي: 


”لعمرك ما ضاقت بلاد بأهلها ولكن أحلام الرجال تضيق“ = Las Na ۳٥‏ 
ف و 
657 الرمز البريدي 15264صندوق بريد “ = Las Na m۴‏ 
وبالرغم من وجود الرقم في النص أعلاه إلا أن البرنامج سيعتبره نص لأننا عرفنا المتغير 
٥8ل 1t‏ بأنه نص ولكننا يمكننا التحويل بين أنواع المتغيرات باستخدام العديد من الدوال 
لمر 2 عن ةة التط وير : 
لنأخذ مثال جديد: 
Dim LastName as String‏ 
”القحطlني“‏ = LastName‏ 
Label1. Text = LastName‏ 
ففي المثال أعلاه قمنا بإسناد كلمة القحطاني إلى المتغير النصي ١۳٥‏ ها ثم جعلنا النص في 
1علةه ا1 يساوي المتغير 1۳٥‏ ءها وعليه فالاسم 'القحطاني" سوف يظهر في 1)٥(اها.‏ 
التعريف الضمني للمتغيرات: 
إذا أردت تعريف المتغيرات بشكل ضمني كما كان قديمأء فلابد عليك من ضبط بعد الإعدادات 
الخاصة بالكود» يمكننا ذلك بواسطة تعديل طريقة تعامل المترجم ال ٣ع€اآم 0٣"‏ مع البرنامج 
بالطريقة التي تم توضيحها في بداية هذا الكتاب في موضوع: 'إعدادات هامة يجب التعرف عليها" 


أو نكتب الجملة البرمجية التالية في أعلى منطقة الكود: 


Option Explicit Off 

طبعاً هذه ليست الطريقة المثلى للتعامل مع المتغيرات ولكن قد تكون ضرورية في بعض الحالات. 
وكذلك يمكنك إضافة الكود التالي لمنطقة الكود (وتعتبر ميزة جديدة في نسخة 2008): 

Option Infer On 


وتقوم بتقريب نوع المتغير إلى اقرب نوعية ممكنهء وذلك بمحالة استقرا مخرجات المتغير وتحديد 


E E 
Dim attendance = 100 
لان الرقم 100 عدد صحیيح› بعبارة‎ |٣۴٥١ ۸014ع( کعدد صحیح‎ ۸٤٥٥ سيتم اعتبار المتغير‎ 
متل كتابة الجملة السابقة:‎ 0١ على‎ 0م†0١‎ |١۴۴١ أخرى: ضبط‎ 
Dim attendance As Integer = 100 
على 0۴ ماذا‎ 0p 0۸ |٣۴6١ طیب» لنفرض أننا عرفنا المتغیر بدون تحدید نوعه» وضبطنا‎ 
سيحدث» ستقوم بيئة التطوير باعتبار المتغير من النوع ا٤۴ ز05 (متغير عام)ء لكن تعريف كل‎ 


الراك غ أا یا ویک د ا و افا ع ا 


استخدام المتغير في برنامجك : 


افتح المشروع الموجود ضمن المرفق رقم 011 إذا لم يظهر اذهب إڵٺى Solution Explorer‏ 
ثم Right-Click‏ على ۴0rm1.۷b‏ واختر ./1eW Designer‏ سيكون البرنامج بالشكل التالي: 
Formî alm Ea‏ 


Label1 RRS 
إظهار‎ 


LabelZ 
إتهاء‎ 


ستلاحظ في الشكل أعلاه ظهور #1طها وكأنه صندوق» تم ذلك بتغيير الئخاصية BorderStyle‏ 
التابعة له إلى 430ع×ا۴. 


للزر 1١0)ا8‏ واكتب الكود التالي: 


Dim LastName As String 


LastName = "qale" 
Label1.Text = LastName 


LaSÊNaَme = "ین غفل"‎ 
Label2.Text = LastName 


الكود أعلاه مقسم إلى ثلاث مجموعات السطر الأول لتعريف المتغير على أساس انه من النوع 
4ا » السطرين الثاني لإسناد النص إلى المتغير السطر الثالث لإظهار النص في #11(اها. 
السطرين الأخيرين نفس الثاني والثالث مع تغيير مكان إظهار النص. ملاحظة هنا بعد تعريف 
المتغير وقبل استخدامه نلاحظ تكون خط أخضر متعرج تحت اسم المتغير يظهر ذلك الخط ليبين 
لنا وجود متغير لم يتم استخدامه» إذا قمت باستخدام المتغير في بيئة التطوير ولكن مازال الخط 


الأخضر المتعرج موجود تحت المتغير فهذا يعني انك أخطأت في طباعة المتغير في مكان ما في 


الكود. ملاحظة أخرى» عند تعريف المتغيرات ذات القيم النصية فيجب كتابة القيمة النصية بين 
علامتي اقتباس " إلا في حالة واحدة فقط وهي كون القيمة النصية أرقام فلا نحتاج لعلامتي 
الاقتباس. قم ڊعJa Double-Click‏ على الزر إنهاء واكتب الكود التالي: 


End 


الكود أعلاه يقوم بإغلاق التطبيق وقت التشغيل. قم بحفظ التغييرات وتنفيذ البرنامج ثم اختر 
إظهار» سيقوم البرنامج بإظهار القيم النصية التي حددناها له في مرحلة الكود. انظر الصورة: 


عند تحديد أسماء للمتغيرات لابد من التنبه لهذه النقاط من اجل سهوله التعامل مع المتغيرات في 


التطبيقات العملاقة والتي تحوي العديد من المتغيرات: 
. يجب أن يبدأ اسم المتغير بحرف أو _ علامة سطريه» لان المتغيرات في فيجوال بيسك تتكون من 
حروف وعلامات سطریه فقط _ و أرقام. 

. في فيجوال بيسك 6 كان عدد الحروف في المتغير الواحد لا يسمح بزيادتها عن 256 حرف لكن 
في نسخة 2008 زالت هذه القيود وبالرغم من ذلك فا الأفضل أن تكون المتغيرات قصيرة 


ومفهومه ويفضل أن لا يتجاوز عدد الأحرف فيها عن 33 حرف. 


. لابد أن تكون أسماء المتغيرات معبرة عن استخداماتها وان لزم ذلك دمج كلمتين مثل المثال السابق 
حين عرفنا المتغير بالكلمة N2۳٠٥‏ أكها. 


. استخدم خليطا من الحروف والأرقام والعلامات السطريه _ في تعريفك للمتغيرات ويفضل جعل 
الحرف الأول كبتل )همه والبقية سموول ٠))‏ (للعلم بعض المبرمجين يفضل جعل الحرف 
الأول من المتغير سموول وإتباع طريقة سنامه الجمل في تعريف المتغيرات بحيث يكون الحرف 
الأول سموول والحروف الأولى من الكلمات في داخل المتغير كبتل مثل المتغير 
.(dateOfBirth‏ 


. لا تستخدم الكلمات المحجوزة في فيجوال بيسك (مثل الکلمات ۴| )]01٠٠‏ أو أسماء الخصائص أو 


أسماء الكائنات» وإلا سيقابلك خطأ ما وقت تشغيل البرنامج. 


. لجودة أكثر في برنامجك يفضل بداية اسم كل متغير بثلاثة حروف تعبر عن نوعية بيانات المتغير 
فمثلاً يمكنك تعريف متغير بالاسم N۳٥‏ ۲ء أو ۸ہع اء طبعاً هذه الطريقة ليست لدرجة 
كبيرة مهمة ولكنك قد تجدها بشكل كبير في أوقات معينةء وللعلم أول من استخدم هذه الطريقة هو 


. تستطيع تسمية المتغير باستخدام حروف اللغة العربية ولكن لعدم معرفة مضاعفات مثل هذه العملية 


في المستقبل فيفضل أن يكون المتغير باللغة الانجليزية فقط. 
استخدام المتغيرات لحفظ المدخلات: 


معظم الأمتلة التي تعاملنا معها سابقا كانت حفظ المدخلات في صندوق نص ×۲۴×80 وحفظنا 
البيانات فيها في خاصية ٠۲ ٠×‏ لكن في بعض الأحيان نريد أن نحفظ المدخلات في مكان أخر 
وليس في خاصية فلذلك نستخدم المتغيرات» أحد الطرق لجلب المدخلات من المستخدم هو صندوق 
المدخلات ×80 |١1‏ سنقوم بإظهار صندوق المدخلات للمستخدم ثم حفظ النص الذي يدخله 


المستخدم في متغير في المتال التالي. 


أنشئ مشروعا جدیدا ولیکن اسمه ×0 8ں م۸| 

أضف اثنين أزرار للفورم واجعل خاصية ال ٠٠×‏ لأحدهما 'صندوق المدخلات وللأخر 
اخروج"» ثم أضف ليبل للفورم ولتكن خصائصه كالتالي: 

AutoSize = False 


BorderStyle = Fixed3D 


= Text 


سيكون برنامجك كما في الشكل التالي: 


Formî - EK 


صنذوف الصدخلات 


قم بالضغط )ءا٣-عاطناه0‏ على الزر 'صندوق المدخلات" ثم اكتب الكود التالي: 


Dim Prompt, FullName As String 
EEoOMGE = "is "قم تادخال اسك الگرى‎ 
FullName = InputBox (Prompt) 
Label1.Text = Ful lName 


في الكود السابق قمنا بتعريف اثنين من المتغيرات باستخدام الكلمة "01۳ وهما ام ٣0ا۴‏ و 
۴u) Nam٥‏ وجعل نوعه قيمهما قيم نصية. تستطيع تعريف أكثر من مائة متغير في سطر واحد 
بحيث تفصل بين كل متغير وآخر بالفاصلة › في فيجوال بيسك نسخة 6 إذا كتبنا الكود أعلاه فلن 
يتقبلها الكمبيوتر بالشكل الصحيح ولكن سيفهم أن المتغير ۸۳٥‏ ))نا۴ هو متغير نصي أما 
المتغیر P٣٥٣‏ فھو متغیر من النوع العام ۷۵٣۵٣٤‏ لأنه لیس متبوعا بالكلمة ٣١‏ ١٣؟.‏ لكن 


هذه المشكلة المنطقية قد تم حلها من نسخة 2002 وصاعدا. السطر الثاني من الكود أعلاه تم إسناد 
قيمة نصية للمتغير ام ۴۲١۳‏ وتم اعتماد هذا المتغير ك ناقل وسيط للقيمة النصية ۵€۸۲ A۸۲۷"‏ 
إلى الدالة ×80 ۷ام١|‏ وتسمى المتغيرات التي تقوم بمتثل هذا العمل "٥٣٤۶‏ uاو٣A.‏ في السطر 
الثالث من الكود يقوم البرنامج بحفظ النص المدخل من المستخدم في المتغير N٣٥‏ ))۴ أما في 
السطر الأخير فيقوم البرنامج بإظهار النص المحفوظ في المتغير ٥۳ا‏ )ان۴ في الليبل 1)ع#طجا 
علينا الآن أن نعرف أن الدالة ×80لام"| هي دالة من دوال الفيجوال بيسك ولديها العديد من 
القذرات وبامكانا استغلال العذيد من الخصائص لهذه الذالة» للمزيد من المعلومات حول هذة الذالة 


راجع التعليمات الخاصة ببيئة التطوير ۸20۸ع" uع00.‏ 


قم بالضغط )٤ا٣-هاطداه0‏ على الزر 'خروج"' ثم اكتب الكود التالي للخروج من البرنامج: 


End 


أحفظ التغييرات التي قمت بها ثم اضغط على ۴5 لتشغيل البرنامج» ثم اضغط على زر صندوق 
المدخلات واكتب اسمك في صندوق المدخلات الذي سیظھر ثم اضغط ۴٣٤۲‏ ستلاحظ أن 
البرنامج أضاف اسمك أو النص الذي قمت بإدخاله في #11اها. اضغط على الزر 'خروج" 


ما هي الدالة: 


الدالة هي عبارة عن مجموعة من الجمل البرمجية التي تقوم بعمل برمجي محدد و منظم 
وله معنى (مثلا طلب معلومات معينة من المستخدم أو حساب محيط الدائرة بمعلومية 
قطرها) وترجع النتيجة إلى البرنامج» النتيجة المرجعة بواسطة الدالة يمكن إسنادها إلى 
متغير معين (كما في المثال أعلاه) أو يمكن إسنادها إلى دالة أخرى أو خاصية معينةء 


تستخدم دوال الفيجوال بيسك العدید من المعاملات u۳ ٣٤۶‏ ویفصل بین کل 


معامل والآخر فاصلة › حيث تعمل هذه المعاملات على منح المستخدم خيارات أكثر 


فمثلاً الدالة ×80 ام١1‏ تكتب كالتالي: 
FullName = InputBox(Prompt, Title)‏ 


ف ام ه۴۲ تعني النص الموجود أعلى صندوق المدخلات» و |٤|‏ تعني عنوان 


صندوق المدخلات. فإذا بدلنا بدل الكلمتين أعلاه هذا الكود: 
("قم بإدخال اسمك يا أخا العرب" 'فيجوال بيسك lلعرب"( FullName = |¬pUt80X‏ 


سيظهر لنا صندوق المدخلات كما في الشكل التالي: 


قم بإدخال اسمك يا أخا الجرب 


ل 


استخدام المتغيرات لعرض المخرجات: 
تستطيع استعراض محتويات متغير ما بواسطة إسناد قيمة المتغير إلى خاصية ما ۴۲٥۵6۲۷‏ مثل 
إسناد متغير ذو قيمة نصية إلى الخاصية ٠۴×‏ التابعة ل ا٥طه‏ ا أو ×0 ٠۴×8‏ أو بواسطة 
تمرير المتغير كمعامل إلى صندوق حوار. من ضمن نوافذ الحوار هذه صناديق الحوار أو دوال 
ال ×0 6ء" » عندما نستدعي الدالة >3680؟ء" وقد تسمى ×50 ع4€ كك" فستقوم الدالة 
بإظهار صندوق حوار له العديد من الخيارات لتنفيذ الهدف الذي تريده من صندوق الحوار. كما 
قلنا إن لكل دالة العديد من المعاملات الذين يحددون كيفية التعامل معها وطبقنا ذلك على الدالة 
×180 ام" | فكذلك الحال للدالة ×۸480 هناك العديد من المعاملات التي تتحكم في طريقة 
عملهاء فالشكل العام للدالة يكون بالشكل التالي: 


MsgBox(Prompt, Buttons, Title) 


فكلمة م۳١۴۲‏ تعني النص الذي سيتم إظهاره للمستخدم» و 5١0لا8‏ هي الأزرار التي سيتم 
إظهارها للمستخدم هل نعم ولا أو نعم ولا وإلغاء الأمر » وهل إلغاء الأمر وإعادة المحاولةء أما 
الكلمة ۲)٥‏ فتعني عنوان صندوق الحوار. لنفترض أننا قمنا بكتابة الأمر التالي: 


MsgBoxStyle.RetryCancel, _‏ ," خطوة يخطوة2008كتاب فيجوال بيك MsgB0OX("‏ 
("فيجوال_ بيسك للعرب" 


ووضعنا الكود تحت الحدث Click‏ التاإبع لزر معين وضغطنا الزر ستظهر لنا هذه الرسالة: 


تتاب فبجوال بيسك 2008 خطوة بخطوة 


للعلم هناك العديد من المعاملات كأ”ع"uو”٣ة‏ التابعة للدالة >480ء يمكن معرفتها من 
تعليمات بيئة التطوير ال ocumen†2†10۸‏ وإذا ردت معرفة هذه المعlامڻÈڻت Arguments‏ 
وقت كتابة البرنامج بدون فتح التعليمات فيمكنك قراءة النصوص الانجليزية التي تظهر في مربع 
اصفر بداخل منطقة الكود بعد كتابة الكلمة «١380×‏ انظر الشكل التالي: 


End Sub 


Private Sub Buttonl Click{ByY¥al sender As System. Uh ject, ByVal e As System.EventArgs] Han 
MsgBox | 
End MsgBox (Prompt As Object, [Buttons As Microsoft, YisualBasic, MsgBoxStyle = MsgEoxstyle, Def aultButton1 ], [Title As Object = Nothing] 
End Clas] As Microsoft. VisualBasic, MsgEoxResulE 
Prompt: 
Required, String expression displayed as the message in the dialog box, The maximum length of Prompt is approximately 1024 
characters, depending on the width of the characters used, IF Prompt consists of more than one line, you can separate the lines using a 


carriage return character (Zhri 13}, a line Feed character (Zhrf10}}, or a carriage rekturnjlinefeed character combination [Chri 13} & 
Chrf10} between each line 


تظهر المعاملات ١١‏ 


ûcrcessibiliktyObjeck‏ ا 

3 AcrcessibleDefaultéctian Description Arguments 

في هذا المريع الاصفر لاحظ اتك يتم فصل کل معامل عن AccessihleDescription‏ ف 
الاخر بالا لذ AcressibleEvents‏ 


E AcrcessiblefJarme 
E nrrareihlamM awinatinn 


يقدم فيجوال بيسك 2008 نوعين من صناديق الحوار وهما الدالة 880ء۸ والكلاس 
Message B0×X‏ لعرض النصوص ضمن نافذة صناديق الحوار» الكاس عيNessa‏ 
×80 توجد ضمن مجاJ System.Windows.Forms (ءlnألl «lضۈف وİ) «ln‏ 
ومعاملاتها ئعا٣‏ ٥ص‏ ع۸۲ نفس المعاملات التابعة لل ×0 38ء۸ ونستطيع إظهارها 


.Message BoX يروluت‎ Msg80× بالطريقة ۸0۷W؟ وباختصار‎ 


ألان سذأخذ مثال تطبيقي وليكن المثال السابق مع بعض التعديلات» لنظهر البيانات التي قام 
المستخدم بإدخالها في صندوق الإدخال على نافذة حوار ×5480( . نفتح المثال السابق ونذهب 
إلى السطر الأخير : ۲٠× = u1 Nare‏ .11٠ط12‏ والذي يقوم بعرض المدخلات في Label\1‏ 
ونحذف هذا السطر ونقوم بتغييره إلى التالي (ليقوم بعرض المدخلات في صندوق حوار): 

)"نتيجة kklخlںات"‏ , MsgBox (Ful11Name,‏ 
بعد تشغيل البرنامج وإدخال الاسم سيقوم البرنامج بعرض الاسم في صندوق حوار. المثال السابق 
موجود في المرفقات برقم المرفق 012 . 


العمل مع أنواع محددة من البيانات: 


قد تصميم برنامج معين ستحتاج لبيانات محددةء فمثلا عند تصميم برنامج لمدرسة ستحتاج برنامج 
لتسجيل أسماء الطلاب وتواريخ ميلادهم وأرقام شهادات الميلاد ونتائجهم في السنوات السابقة 
وساعات الدراسة وبعض البيانات الأخرىء» لذلك فأنواع البيانات التي قد تحتاجها في مثل هذا 
البرنامج هي من النوع 5٣١١١‏ لأسماء الطلاب ومن النوع ٥ه‏ لتواريخ ميلادهم ومن النوع 
ماوہا؟ لأرقام شهادات الميلاد وكذلك ل نتائجهم في السنوات السابقةء أما عند تصميم برنامج 
لسوق البورصة فالأمر سيتغير لأننا سنهتم بالأرقام بشكل كبير جدا لان الأرقام في البورصة تعني 
الكثير بل سنهتم بالكسور الصغيرة جدا. في الحقيقة كل نوع من أنواع البيانات سواء كان ع١آ٣†؟‏ 


أو #tه0‏ أو اواك أو غيرها من أنواع البيانات التي سنتعرف عليها في هذا الدرس له وزن 


أو حجم معين على الذاكرة فإذا استخدمنا النوع الصحيح للبيانات فإن ذلك سيوفر علينا جزء من 
الذاكرة خاصة في البرامج الكبيرة أو البرامج التي تقوم بعمليات حسابية معقدةء للعلم تم إضافة 
العديد من الأنواع البيانات في عام 2005 إلى نسخة فيجوال بيسك 2005 وذلك بسبب نزول 


الأجهزة الحديثة في الأسواق ۲5-64ع† لام صت اط . هذه الأنواع هي SByte, Uinteger,‏ 


kong. SByte‏ ل Short,‏ تقبل البيانات الموجبة والسالبة بينما بقية الثلاثة الأنواع الأخرى لا 
تقبل غير البيانات الموجبة فقط. دعونا ألان لنعرف أنواع البيانات التي يمكن استخدامها في فيجوال 
بيسك 2008 ثم سنتعرف على كيفية استخداماتهاء في الجدول التالي أنواع البيانات مع حجم النوع 


على الذاكرة بالإضافة إلى نوع البيانات وفثتها ومثال توضيحي على كل نو ع: 


ملاحظة: حجم نوع البيانات على الذاكرة يقاس بال كأأط وهي حجم المساحة اللازمة لحفظ وحدة 


٥ytط)‏ و الآن إلى الجدول: 


نوع 
البيانات 
Short‏ 
UShort‏ 
Integer‏ 


Uintege 


Long 


bit-32 


bit-64 


مجال البيانات 


-32.768 إلى 32.767 
0 إلى 65.535 


-2.147.483.648 إلى 
2.147.483.677 


0 إلى 4.294.967.295 


9.223.372.036.854.775.808- 


إلى 


مثال 


Dim BIFdS AS SHOEE 
Birds = 12500 


Dim Days As UShort 
Days = 55000 


Dim Insects As 
LRNEEGEE 
Insects = 37500000 


Dim Joys A5 UINLEGEE 
Joys = 3000000000 


Dim WorldPop As Long 
WorldPop = 
4800000004 


ULong 


Single 


Double 


Decimal 


Byte 
SByte 


Char 


String 


Boolean 


bit-64 


bit -32 
floating point 


bit -64 
floating point 


bit-128 


bit-8 

bit-8 

bit-16 

عادة 1-16 لكل 
حرف 


bit-16 


9.223.372.036.854.775.07 


0 إلى‎ 
18.446.744.073.709.55.5 
3.4028235E38 to 
3.402823538 


1.797/69313486231868 
to 
1.797/69313486238688 


0 to +/- 
79,228,162,514,264,337,093 
,543,950,335)+/-7.9...۴+28( 


:أو بدون علامة الألوف كالتالي 
to +/- 0‏ 
33 7.92281625142643 


5 بالإضافة إلى 28 خانة على 
يمين الرقم» أضف الحرف "0" إذا ردت 
من الفيجوال تهيئة الرقم العشري. 

صفر إلى 255 (موجب فقط) 


-128 إلى 127 

أي رمز مهالا من صفر إلى 
٠» 5‏ أضف CK‏ لتهيئة ال Char‏ 
0 إلى 2 مليار من رموز ال 
Unicode‏ (کل واحد منھم 1۲-16( 
صحيح أو خطأ وعند الكود الصفر يعتبر 
.خظا وبقية القيم تعتبر صحیيح 


Dim Stars As ULong 
Stars = _ 
1800000000000000000 


Dim PFEILcCe .A§ SinolLé 
BEC = 999 


Dim Pi As Double 
Pi = 3.1415926535 


Dim Debt As Decimal 
Debt = 7600300.5D 


Dim RetKey As Byte 
RetKey = 13 


Dim NegVal As SByte 
NegqVal = -20 


Dim UnicodeChar As 
CREAE 
UnicodeChar = " "c 


Dim Dog As String 
Dog = "pointer" 


Dim Flag As Boolean 
Flag =. TEUG 


bit-64 Date 


bit-32)| Object 


من 1 يناير لعام 1 للميلاد إلى 31 
دیسمبر لعام 9999 


أي نوع من أنواع البيانات. 


Dim Birthday As Date 
Birthday = 
#3/1/1963# 


Dim MyApp As Object 
MyApp = CreateObject 


(WO .APPLLEaATTLOR™) 


ليس المهم أن نحفظ الجدول السابق أعلاه عن ظهر قلب ولكن الأهم هو أن نحاول تطبيقه» فنقوم 
بتعريف متغيرات بالاعتماد على الجدول أعلاه» وبعد أكثر من مرة من تعريف المتغير واستخدامه 
سنعرف طبيعة كل متغير وأوقات استخدامه. لابد علينا من استخدام المتغير المناسب حتى لا 
نستهلك الذاكرة 80۲١‏ فمثلا إذا كان عدد المباني التابعة للشركة هو المتغير فنستطيع استخدام 
النو ع Decina)‏ أو Double‏ أو Single‏ أو Object‏ أو SByte‏ أو Byte‏ لکننا سنستخدم 
النوع الذي لا يهلك الذاكرة بشكل كبير» وعليه فسنستخدم النوع ال6 لان المباني التابعة للشركة 
ستكون خمسة أو ستة ولن تصل بالكاد إلى 100 مبنى ولكن إذا كانت الشركة شركة عقارات 
(لديها العديد من المباني) فيمكننا استخدام النوع #او”أ؟ حيث سيتيح لنا الوصول إلى الملايين من 
الأرقام ويعتبر أخف على الذاكرة من النوع أة"أءه0 أو عاطناه0. بعبارة أخرى يجب علينا 


معرفة نوع البيانات التي سنتعامل معها ثم اختيار النوع الأفضل من الأنواع أعلاه. 


مثال تطبيقي على أنواع البيانات: 


تعرفنا سابقا على أنواع البيانات وأخذنا أمثظة على كل نوع من أنواع البيانات» الآن سنقوم بتصميم 
تطبيق للتعريف بالمتغيرات بواسطة الكود. أنشئ مشروعا جديدأً وليكن اسمه 65ص۲۷ 04 نقوم 
بإاضافة المكونات التالية للفورم مع ضبط الخصائص : 


Lab) وكذلك اثنین‎ Button و‎ ListBox 


ونضبط خاصية ال ٠٥×‏ لل ١0))لاB‏ على 'خروج' 


وكذلك خاصية ال ٠٥×‏ لأحد ال اعطها على "مثال للبيانات"' 


أما ال #1طه 1 الثاني فنضبط له الخصائص التالية: 
Fixed3D yle BroderStyle‏ 
False yle AutoSize‏ 


وعلية سيكون نموذج الفورم كما في الشاشة التالية: 


Form ES 


نقوم بتعريف المتغيرات التي سوف نستخدمها في مختلف مناطق الكود بعرفها بعد الجملة )ں۴ 
5ع الموجودة في أعلى الفورم» بالشكل التالي: 


Birds As Short 
LAISESES: AS INEE GEE 
WorldPop As Long 
Price As Single 

Pi As Doublê 

Debt As Decimal 
RétKey As Bytê 
UniCodeChar As Char 
DO. AS SEEING 

Flag As Boolean 
BirthDay As Date 


UUUUUUUU UU U 
33333333333 


ر ع ی ر ی ت ا ا کی کل ر ا اک 
لأننا كتبنا التعريف في بداية مرحلة الكودء لكن إذا كنا نريد استخدام المتغيرات على 
نطاق ضيق فيمكننا كتابة التعريف في المكان المحدد الذي نريد استخدام المتغيرات فيهء 
مثل أن نعرف المتغيرات في الإجراء )٤1ا‏ التابع لزر من الأزرار. أما إذا كان لدينا 
أكثر من فورم ونريد تعريف المتغيرات واستخدامها في كل فورم ضمن المشروع فلابد 
من طريقة مختلفة لتعريف المتغيرات وهي تعريف المتغيرات من النوع )اد۴ أو 
1ا وذلك بوضع المتغیرات في ملف خاص اسمه اال" یتم فيه تعریف کل 
المتغيرات التي سنستخدمها في أكثر من فورم. سنتعرف على التعامل مع ملفات ال 
65 في الفصل العاشر من هذا الكتاب إن شاء الله. 


نضغط )ءا ٣-عاطاه0‏ على الفورم ليفتح لنا نافذة الكود عند الإجراء 04| التابع للفورم 
ونكتب الكود التالي لتعبئة قائمة ال 50×1ءآا: 


LLSEBORL LEMS: AQAA(TSBOETE™) 
ListBoxl.Items.Add ("Integer") 
ListBox1.Items.Add ("Long") 
ListBox1.Items.Add ("Single") 
ListBoxl.Items.Add ("Double") 
ListBox1l.Items.Add ("Decimal") 
ListBox1.Items.Add ("Byte") 
ListBox1.Items.Add ("Char") 
LHLSEBORT, TEMS :AQdA ("SEEING") 
ListBox1l.Items.Add ("Boolean") 
ListBoxl.Items.Add ("Date") 


كذلك نضغط)ء)٣-٥اطام0‏ على الزر خروج ونكتب كود إغلاق البرنامج: 


End 


وأيضا نضغط ۸ءا٣-عاطاه0‏ على ال 80×1ءآا ثم نكتب الكود التالي ليقوم بكتابة نوع 
البيانات التي تم اختيارها في ال 2)#طه1: 


Select Case ListBox1.SelectedIndex 


Case 0 
Birds = 12500 


Label2.Text = Birds 
Case 1 

Insects = 37500000 

Label2.Text = Insects 
Case 2 

WorldPop = 6000000000 

Label2.Text = WorldPop 
Casê 3 

Price = 964.84 

Label2.Text = Pric 
Case 4 

Pi = 3.141592655 

Label2.Text = Pi 
Case 5 

Debt = 7600300.5D 

Label2.Text = Debt 
Case 6 

RetKey = 13 

Label2.Text = RetKey 
Case 7 

UniCodeChal = " TE 

Label2.Text = UniCodeChar 
Case 8 

DOG = "POInNTeFE™ 

Label2.Text = Dog 
Case 9 

EFLag = TEQE 

Label2.Text = Flag 
Case 10 

BirthDay = #3/1/1980# 

Label2.Text = BirthDay 


End Select 


التطبيق أعلاه في الملف المرفق رقم 013ء سوف نتعلم الكثير من الخصائص التابعة للدالة 


Case‏ اع في الفصل القادم بعون الله. 
التراكيب البرمجية Structures‏ 


عندما ذكرنا أنواع المتغيرات سابقاء قد يتساءل البعض هل هذه كل أنواع المتغيرات بعبارة أخرى 
هل توجد أنواع أخرى للمتغيرات» نعم هنالك متغيرات تسمى تراكيب ۲۴١‏ ا٤5۲۷‏ يتم تعريفها 
من قبل المبرمج نفسه وتسمى 01ل كعمرآ كع” ام0 ءل أي أنواع المتغيرات المحددة عن 
طريق المبرمج. وتستخدم هذه الطريقة إذا كان لديك مجموعة من البيانات المترابطة فيما بينها 
ولكن كل نوع من أنواع مختلف عن الآخر مع وجود الرابط بين البيانات ككل. فمثلا إذا كان لدينا 


بيانات العاملين في المنشأة (اسم الموظف» تاريخ ميلاده» تاريخ التوظيف) وتستخدم هذه البيانات 
أكثر من مرة. فنستطيع تعريف المتغيرات بشكل جماعي على شكل تركيب ٤1۲۵‏ 5۲۷. ولنفهم 
كيفية تعريف ال ۲٥۴‏ اع ٣u‏ علينا أن نعرف بيانات العاملين بالطريقة القديمة كالتالي: 


Dim EmployeeName as String 
Dim EmployeeDateOfBirth as Date 
Dim EmployeeHireDate as Date 
السطر الأول يقوم بتعريف اسم الموظف» الثاني لتاريخ ميلاد الموظف» الثالث لتاريخ تعيين‎ 
الموظف. ولابد علينا أن نكرر الأكواد أعلاه مع كل عملية تعريف موظف جديد. أما في حالة‎ 
استخدام التراكيب فإننا سنقوم بتعريف التركيب لمجمو عة الموظفين مرة واحده فقط كالتالي:‎ 
Structure Employee 
Dim Name As String 
Dim DateOfBirth As Date 
Dim HireDate As Date 
End Structure 
لاحظ أن لدينا مجموعة من البيانات (أكثر من نوع من أنواع البيانات) ولكن هناك رابط ما بين‎ 
هذه البيانات (لها علاقة بالموظفين) لذلك استخدمنا التراكيب. ثم إذا رادنا تعريف موظف جديد‎ 
ضمن الكود بعد تعريف التركيب أعلاهء نكتب الكود كالتالي:‎ 
Dim ProductManager as Employee 
ProductManager.Name = “دnحİ”‎ 


لاحظ الصورة التالية وانظر كيف تقدم بيئة التطوير أنواع البيانات بسبب استخدامنا للتركيب: 


E) Fublicz Class Forml 


Structure Employee 
Dim Name As String 
Dim DateÛfBircth As Date 
Dim HireDate As Date 
End Structure 


Private Sub Forml1 Load{ByVal sender As System.Object, ByVal € 


Dim ProductManager As Employee 


ProductManager . 
0© DateQfBirth 
End Sub : 2 
Private Sub Butt Common As System.Object, ByvVe 


End Sub 
End Class 


ملاحظة أخری حول التراکیب ٤C ۲٤۴5‏ 5۲ء عندما نعرف ترکیب ۲٥۴‏ ںC‏ ں٣5‏ لا بد أن نقوم 
بتعريفه في خانه مستقلة في منطقة الكود ولا يمكن أن نقوم بتعرفه Private Subؤb jı‏ وڪ End‏ 
(لاحظ الصورة أعلاه). 

إذا دققنا في صيغة التراكيب 5۲1۷٤1۲١‏ سنلاحظ تشابهها الشديد مع الخصائص» مما يوحي لنا 


بأن مايكروسوفت استخدمت نفس طريقة التر اكيب لتعريف خصائص المكونات. 


:Constants ٽبlوألl‎ 

تذكر معنا ماذا درسنا في الدروس السابقةء لقد درسنا المتغيرات وهي البيانات التي تتغير من وقت 
لآخر» أما الآن سنتعرف على الثوابت (عكس المتغيرات) ويمكن تعريف الثوابت بأنها المتغيرات 
التي لا تتغير قيمتها. فمثلاً قيمة المتغير > أو ما يسمى ب'فآي' فيعتبر من الثوابت لأن قيمته 
تساوي 3.14159265 فبدلاً من حفظه کمتغیر في البرنامج یمکن حفظه کثابت ۸5۵۸ .٤)0‏ 


أعتقد الآن بأننا فهمنا معنى ثابت C0١5١‏ (وهو القيمة التي لا تتغير)ء قد نتساءل لماذا نستخدم 


الثوابت والإجابة هي عندما يوجد لدينا قيمة لا تتغير ولتحسين أداء برنامجنا ولتسريع تعامله مع 
الكود» وفي نفس الوقت لتجنب الأخطاء. ولتعريف تابت ما نستخدم الكلمة C0١5‏ كالتالي: 
Const Pi As Double = 3.14159265‏ 


الكود أعلاه يقوم بحفظ قيمة الثابت > أو ما يسمى با'فآي". 


إذا ردنا استخدام على طول الفورم فنقوم بتعريف الثابت في أعلى منطقة الفورم التابعة للفورم أما 
إذا أردنا استخدام الثابت في حالة واحدة فقط فنقوم بتعريف الثابت في داخل الإجراء الذي نريد أن 
نستخدم فيه الثابت» وفي حالة كان لدينا أكثر من فورم ونريد استخدام الثابت في كل فورم نقوم 
بتعريف التابت في قالب برمجي يسمىی عاuںdه×‏ دا بالكلمة )نا۴ كما في المثال التالي: 

PubLIê Const pi. As Double = 3.14159265‏ 
نستفيد من الثوابت في العديد من المهام لعل أبرزها تكوين وحل المعادلات الرياضية. 


المعاملات الرياضية ١ء٣20٣ :0p#‏ 


نقصد بها العلامات الرياضية مثل علامة ١‏ - أو الجمع + وغيرهاء وهذه هى العلامات 
و ج > او وعيرهاء وهده هي 
الرياضية التي ممكن استخدامها بداخل الفيجوال بيسك 2008: 


المعامل الوصف مثال 
+ الجمع 4+ 9=5 
. الطرح 1=4-5 
ا 4 * 5= 20 
الس 4/5 = 1.25 
| القسمة بدون إظهار الكسور في النتيجة 3=415 


18 Mod 4 =2 باقي القسمة‎ Mod 
EET اس‎ 
لضم الكلمات مع بعضها ي‎ & 


إذا لاحظت المعاملات أعلاه ستجد أن هناك ثمانية معاملات» أربعة منها بسيطة (الأربعة الأولى)› 


وأربعة منها متقدمة وهي الأربعة الأخيرة لأننا لا نستخدمها من وقت لآخر. 
مثال المعاملات الرياضية البسيطة: + › - › * ٠‏ / 


المعاملات التابعة للجمع أو الطرح أو الضرب أو القسمة هي معاملات رياضية بسيطة التعامل وقد 
تعرفنا عليها في دراستنا الابتدائية في المدرسةء هنا سنقوم فقط بأخذ مثال برمجي تطبيقي لنرى 
كيف نستفيد من هذه المعاملات. 


قم بإنشاء مشرو ع جديد وليكن اسمه ۸3۸ كج8 ثم أضف المكونات التالية للفورم: 
-١‏ عدد ثلاثة صنادیق نص ٥×860×‏ 1 
۲-واحد صندوق المجمو عات p80×‏ 6۲0۷ 
۳-أربعة أزرار رادير ١0ا8 R10‏ إلى صندوق المجموعات 
٤-ثلاثة‏ ليبلات كئا٥abا‏ 
قم بضبط الخصائص كالتالي: 
للفورم: 
RightToLeft = Yes‏ 


٣٥×)‏ = المعاملات الرياضية البسيطة 


لليبلات: 
نغير خاصية ال ٣٠×‏ للأول 'المتغير الأول" وللثاني 'المتغير الثاني وللثالث 'النتيجة" 
ونغير خاصية ال ٠۴×‏ لصندوق المجموعات إلى المعاملات. 


وكذلك نغير خاصية ال ٠٠×‏ لأزرار الراديو كالتالي: الأول "الجمع'٠‏ الثاني "الطرح' الثالث 


"الضرب"٠‏ الرابع "القسمة". بعد التصميم وتعديل الخصائص سيكون الفورم مثل الشكل التالي: 


اكك | ددا الاعات الرياضبة البسيطة 


المعغير الأول 


نضغط )»٤1ا٤-عاطداه0‏ على زر الراديو "الجمع"' لنذهب إلى منطقة الكود لنكتب الأكواد التالية: 


Dim xX; ¥ As Double 

X = TextBoxl. Text 

Y = TextBox2.Text 
TextBox3.Text = x + y¥ 


وكذلك نكتب الكود التالي لزر الراديو الطرح: 


Dim x, y As Double 

x = TextBoxl1.Text 

Yy = TextBox2.Text 
TextBox3.Text = x - y¥ 


وهذا للضرب: 


Dim x, y As Double 

x = TextBoxl. Text 

y = TextBox2.Text 
TextBox3.Text = x * y 


وهذا ۹ ألقسمة: 


Dim x, y As Double 

x = TextBox1.Text 

Yy = TextBox2.Text 
TextBox3.Text = x / Y 


نقوم بتشغيل البرنامج ثم نقوم بإضافة أرقام إلى صندوق النص الأول والى الثاني ثم جرب 
العمليات الحسابية (الجمع والطرح والضرب والقسمة). بالمناسبة نسخة من المشروع بالمرفق رقم 
014. 


مثال لاستخدام المعاملات الرياضية المتقدمة: 


سنقوم باستخدام المثال الأول (في المرفق رقم 014( مع تغيير خاصية ال أ×ع] لأزرار الراديو 
كالتالي: 


الزر الأول من "الجمع" إلى "القسمة بدون إظهار الكسور' 

الزر الثاني من 'الطرح" إلى 'باقي القسمة' 

الزر الثالث من 'الضرب" إلى "الأس' 

الزر الرابع من "القسمة" إلى 'ضم الكلمات' 

ثم نقوم بتغيير الأكواد التابعة لكل زر فنبدل المعاملات التالية فقط: 
من المعامل + إلى | 

من المعامل - إلى أN0‏ 

من المعامل * إلى ^ 


من المعامل / إلى & 


بعد التعديلات السابقةء قم بتشغيل البرنامج سيكون كما في الشاشة التالية: 


K5‏ المعاملات الرياضية البسيطة 


لاحظ أن "القسمة بدون إظهار الكسور" للرقم 47 على الرقم 10 يساوي 4 كما في الصورة أعلاه 
وتفيدنا هذه العملية في حساب الأشياء التي لا تقبل التقسيم إلى مكونات اصغر فمثلا يمكن حساب 
عدد الأشخاص الذين تستطيع حملهم السيارة بواسطة المعامل أعلاه. (فلايعكن أن نقول حمولة 
السيارة =7ب4 أشخاص)ء وكذلك عدد السيارات التي قد تحملها السفينة الواحدة» وغيرها من 
العمليات التي لا تقبل التقسيم إلى مكونات اصغر. للعلم التطبيق أعلاه موجود بالمرفقات رقم 
05. 


التعامل مع الطرق كله ٤ه‏ ضمن بيئة التطوير: 


من خلال العمل في بيئة التطوير قد تحتاج العديد من الأوامر لصنع معادلات مختلفة أو لتصميم 
برنامج يحسب مجموعة من القيم أو المتغيرات» فالطرق المقصودة هنا هي تلك المعادلات 
المخزونة مسبقا ضمن بيئة التطوير وبالتحديد ضمن الفريم وورك 3.5 (أي يمكن أن نستخدمها في 
الفيجوال بيسك أو في السي شارب أو في بقية برامج بيئة التطوير فيجوال 2008). لمراجعة جميع 
هذه الطرق يمكنك الرجوع لها في الكلاس 7.۸2۸ tء/؟.:‏ انظر الجدول أدناه لبعض الدوال 
أو اطرق المتوفرة ضمن الكلاس ١.۸۸‏ ء5 وللعلم إذا ردت استخدام اشن لو اف 


أو غيرها من التابعة للکلاس ۵۳.۸2٤۸‏ tءر؟‏ یجب أن نقوم باستیر اد الکانتس System.Nath‏ 


ضمن مجالات الأسماء في أعلى منطقة الكود قبل كتابة أي کود آخر (حتی قبل icاub‌P Form1‏ 
:)Class‏ 


الطريقة | الوصف 


فرق ار ع كن د و ر ارک رر هد و 
 45)7(‏ ترجع لنا قيمة ١‏ بالموجب بدون سالب إذا كان سالب» وعدم تغييره إذا كان موجب. 
() ٣ه‏ | لمعرفة ظتا الزاوية >١‏ بوحدة قياس "الراديان'» وتساوي ١4ا‏ اس -1. 
 05)7(‏ لمعرفة جتا (جيب تمام) الزاوية أو .١‏ 


.2.718281828 هي الأس بالنسبة للأساس‎ ١ الدالة الأسية: وتعتبر‎ × )١( 


 313)7(‏ ترجع لنا القيمة -1 إذا كانت ١‏ أصغر من صفر وترجع القيمة صفر إذا كانت ١‏ تساوي 
صفر وترجع لنا القيمة +1 إذا كانت ١‏ أكبر من الصفر. 
Sin (n)‏ 


ترجع لنا جيب الزاوية .١‏ 


(7) | لمر فة طل ال نة ا هة فان لر اداد" 


سنقوم الآن بتصميم تطبيق بسيط يقوم بحساب الجذر التربيعي لرقم ما بالاستفادة من الكلاس 
tem.Mathءy‏ وبالتحديد من الطريقة :)5٩۲٣)١‏ 


ننشئ مشروع جدید ونسمیه 5٩۲٤1‏ ونضیف للفورم واحد ×۲۵×)80 وزر ۷)0۸ا8. ثم نکتب 


الكود التالي في حدث )ءا التابع للزر 0۸1( :85u‏ 


MsgBox (Sqrt (TextBox1. Text) ) 


ونكتب الكود التالي في أعلى الفورم لاستيراد مجال الأسماء: 


IMPOEES SYysSteM:.Math 


بعد تشغيل البرنامج نكتب الرقم المطلوب إيجاد الجذر التربيعي له في مربع النص ثم نضغط الزر› 
سيقوم البرنامج بإظهار الجذر التربيعي له في رسالة الحوار ×80 ع. كما في الشكل التالي: 


| ع اا اا ag Forrml‏ 


المثال أعلاه في المرفق رقم 016. 
لنفرض أن لدينا العملية التالية: 
10+15*2/4^2 


فكم يكون الناتج بعدما تقوم بيئة التطوير بحساب العمليةء من أجل معرفة الناتج يجب أن نعرف 
كيف يقوم فيجوال بيسك بسلسلة العمليةء يجب أن نعرف أن هناك خطوات يقوم بها فيجوال بيسك 
لمعرفة الناتج وهذه الخطوات الرياضية كالتالي: 


المعامل الشرح 


0 تقوم البرتامج بحساتب ما بين الأقراسن أولا. 
۸ شح رتت باب اا قابا 


- يقوم البرنامج بحساب الأرقام السالبة ثالثا. 


*/ يقوم البرنامج بحساب الضرب والقسمة رابعا. 
۱ يقوم البرتامج بعملية القسمة بدون احتساب كسور في اللتيجة. 
Mod‏ يقوم البرنامج باحتساب باقي القسمة سادسا. 


E‏ وفي الأخير يقوم البرنامج بعمليتي الجمع والطرح. 
إذن لنرى العملية السابقة ونرى طريقة تسلسل حلها: 


10+15*2/ 472 
10 + 2 / 16 
10 + 30/6 
10+ 1.85 


11.875 
استخدام الأقواس لترتيب تسلسل العمليات الحسابية: 
لنفهم ما علاقة الأقواس بترتيب تسلسل العمليات الحسابية نأخذ هذا المثال: 
3(^2 * 5 - 8( 


ناتج العملية أعلاه سيكون 49» فيما إذا أضفنا قوسين للعملية كالتالي: 


()8 - 5) * 32 


الح 


خلاضة الفصل الخامشن: 
من اجل أن 


تعرف متغير 


الحصول على 
المدخلات من المستخدم 


إظهار المخرجات قي 


صنادیق حو ار 


سيكون الناتج للعملية يساوي 81. 


فمن المثال أعلاه يتضح لنا أهمية استخدام الأقواس لتنظيم وترتيب تسلسل تنفيذ العمليات 


قم بالتالي 
اكتب الكلمة 01۳ تم اأكتب بعدها اسم المتغير بعدها A>‏ وبعدها نوع البيانات 
الذي يمتله ذلك المتغير. لن لتستخدم المتغير في جميع الإجراءات في الفورم ولا 
تريد إعادة تعريفه أكثر من مرة» قم بتعريفه في بداية الكود وقبل أي كود تابع 
Dim Country as String‏ 
Country = “Japan”‏ 
نستخدم الدالة ×80 لام |١‏ و نسند القيمة إلى متغير كالتالي: 
UserName = InputBox("What is your name?")‏ 
نستخدم الدالة Nsg80×‏ كما في المثال التالي: 
MsgBox(“Report Kind”, , "Spain Weather Report")‏ 
نكتب C0١5‏ وبعدها اسم الثابت ثم = بعدها القيمة الثابتة كالتالي: 
Const AhmedAge as Short = 22‏ 


نستخدم الإشارات الرياضية السبعة المذكورة للربط بين الأرقام في عملية 


ادمج لمن أو نصین 


استيراد مجالات الأسماء 


استدعاءِ طريقة 
Method‏ 


التحكم بتسلسل العمليات 


الخبافة من كوه 


حسابية ثم نسند النتيجة إلى متغير أو خاصية معينة كالتالي: 
Result = 1 ^ 2* 3\4‏ 
نستخدم أداة الربط بين النصوص وهي & كالتالي: 
Msg = "Hello" & "," & " world!"‏ 
لاستيراد مجال معين من مجالات الأسماء نكتب في أعلى منطقة الكود وقبل 
كل شيء الكلمة |0۲٣‏ ثم نتبعها بنوع الكلاس التي نريدها كالتالي: 
Imports System.Math‏ 
لاستدعاء طريقة ۵٩0٣ع"‏ لا بد أولا من استيراد مجال الأسماء الخاص 
بالطريقة ثم نكتب الطريقة ١٥ع"‏ المرادة فغي الكود كالتالي: 
فبعد استيراد مجال الأسماء : ۸خ ."ع اكل نكتب الكود التالي لاستدعى 
الطريقة ١0ع"‏ المدعومة من قبل مجال الأسماء وهي ا٣54‏ كالتالي: 
Hypotenuse = Sqrt(x ^ 2 + y ^ 2)‏ 
يمكننا التحكم بتسلسل العمليات الحسابية ضمن الكود بإضافة أقواس ليقوم 
البرتامح يتاب ما بذاخل الأقواش أولا. فمقذ: 
3النتيجة تساوي =4 |3 ^ 2 + 1 = Resul‏ 


1النتيجة تساوي = (4 31 () ^ )2 + 1( = Result‏ 


الجزء الثاني: أساسيات البرمجة (من الفصل الخامس إلى الفصل الثالث عشر) 


Decision Structures ٽlرlرقلl‎ Jمج الفصل الخامس:‎ 


كثيرا ما نحتاج في البرمجة إلى جُمل فيها قرارات معينةء فمثلا يمكننا كتابة جملة شرطية في 
البرمجة باستخدام أداة الشرط إذا ۴| › فنقول فيها إذا كان أ أكبر من ب فنفذ الأمر التالي ونكتب 
أمر معين أما إذا كان ب أكبر من أ فنفذ الأمر التالي ونكتب أمر معين آخر» وتسمى هذه الجمل 
بالجمل الشرطية» وهناك جمل أحرئ لها غااقة بانخاذ قرارات معينة وقت تشغيل البرنامجء هذه 
الجمل وغيرها سنتعرف عليها في هذا الفصل. 


:Event-Driven Programming ثiادحألاب البرمجة‎ 


في التطبيقات التي قمنا بتصميمها سابقاً لم نشر إلى مفهوم البرمجة بالأحدات» وذلك لان التطبيقات 
التي تناولناها سابقا كانت عبارة عن تطبيقات تتعامل مع الأدوات والقوائم المتوفرة ضمن بيئة 
التطوير . فالبرمجة بالأحداث Event-Driven Pr 0r "¡٣3‏ هي عبارۃ عن برنامج مکون 
من مجموعة من الكائنات الذكية 6زط0 تستقبل المدخلات من المستخدم ثم تقوم بمعالجتها ثم 
تنتظر الاختيار من المستخدم. قد تكون هذه المدخلات من قبل المستخدم أو من قبل الكمبيوتر بدون 
تدخل من المستخدم فيمكن جعل تاريخ الجهاز عبارة عن مدخل من المدخلات بدون تدخل من 
المستخدم أو ممكن ينتظر الكمبيوتر لحين تحقق شرط ما مثل وصول رسالة بالإيميل أو بالفاكس ثم 
تنفيذ أمر معين. تذكر سابقا (في التطبيقات التي تعاملنا معها) كنا نستخدم الحدث )ءا لزر ال 
Button‏ أو CheckedChanged‏ لصندوق التأشیر Che c)80×‏ او 

ndexCchangedاectedاء‏ التابعة لكائن القائمةء وهناك العديد من الأحداث التابعة لكل مكون 
من مكونات ءا زط0 بيئة التطوير. فالبرمجة بالأحداث هي البرمجة التي تعتمد بشكل أساسي 
على الأحداث ءا١٠۷‏ التابعة للمكونات المتوفرة في بيئة التطوير» فبدلا من كتابة كود من 
صفحتين أو ثلاث لمر اقبة المستخدم حتى يضغط على الزر 810١‏ فقط نكتب الأمر الذي نريد 
تنفيذه في الحدث )٤ا‏ التابع للزر ١0ا8‏ فالبرمجة بالأحداث توفر علينا الكثير من الجهد 


والوقت بسبب وجود العديد من العديد المخزونة مسبقا ف اور 


في هذا الفصل سنتعلم كيفية استخدام جمل القرارات S† ٣u ٣u ٣e١‏ اكام للمقارنة بين 
المتغيرات والخصائص والقيم تم اتخاذ قرارات محددة في حالة تحقق شروط معينة. 

الأحداث المدعومة من الفيجوال بيسك: 

هناك الكثير من الأحداث المدعومة من الفيجوال بيسك لكل كائن ا٤٥‏ زط0 من الكائنات في بيئة 
التطوير» لمعرفة الأحداث المدعومة لكل كائن فقط نقوم بإضافة الكائن إلى الفورم ثم نفتح نافذة 
الكود لنرى الأحداث المدعومةء لننشئ تطبيقا جديدا ونضيف للفورم الكائن 8100١‏ ثم نفتح نافذة 
الكود ونذهب إلى أعلى يسار الصفحة ونفتح القائمة المنسدلة التي تظهر كما في الشكل التالي: 


35 WindowsApplication1 - Microsoft Visual Studio 
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# (Formi1 Events) 
ا‎ Button 


لاحظ هنا وجود اثنين من المکونات فقط وهما ۸1٥))لا8‏ و ۳0۲۳1 (في الحقيقة ستجد في 
الصورة كل المكونات المتوفرة على الفورم ولأنه لا يوجد لدينا إلا اثنين من المكونات فقط فقد 
ظهرت في القائمة وإذا كان هناك أكثر من مائة مكون لظهرت جميعها) فإذا ردنا اختيار الأحداث 
التابعة للفورم1 نختار ۴٥١۳1 ٤۷٥٣٤۶‏ وإذا أردنا اختيار الأحداث التابعة للکائن 0۸1ا ں8 
نختار 810١1‏ من القائمة ثم نذهب إلى القائمة المنسدلة المتواجدة على اليمين لنختر منها 
الحدث الذي نريده والتي ستكون كالشكل التالي: 


jl {perlarations]) 
EE (Declarations) 


# AutoSsizechanged 
¥ BackColorchanged 
#F BackgroundImageChanged 
# BarkgroundImageLayoutChanged 
# Binding Contexkthanged 
# Causesvalidationchanged 
# ChangeUICues 
# ick — 
# ClientSizeChanged 
¥# ContextMenuthanged 
# ContextMenuStripChanged 
# Controladded 
¥# ControlRermoyed 
# CursorChanged 
# Disposed 
# Darckchanged 
#F DoubleClick 
# DragDrop 
_|#F DragEnter 
# DragLeaye 
# Dragiyer 
# EnabledChanged 
#F Enter 
# Fontchanged 
¥ FareColorchanged 
# GiyeFeedback. 
¥ GotFocus 
# HandleCreated 
# HandleDestroyed 


في القائمة المنسدلة ستجد كل الأحداث التي تحتاجها أو التي قد تحتاجها في حياتك» وقد تحتاج 
نادرأ جداً جدأ بعض الأحداث الغير متوفرة أعلاه في حينه لابد عليك من تصميم كود للحدث 
المرادء لاحظ أننا قد استخدمنا 16 مثال حتى الآن في هذا الكتاب ولم نستخدم إلا واحد من 
الأحداث أعلاه وهو الحدث ءا (الذي أمامه خط أحمر صغير في الصورة)ء وبقية الأحداث قد 


تحتاج لبعض منها خلال حياتك البرمجية. 
استخدام الجمل الشرطية: 


وکو ا ا ی ا ت و 


أو قيمة وعينة لتخرج لنا أحد الخيارين (صح أو خطأ) كما في المثال التالي: 


Price < 100 


ففي الجملة السابقة حددنا أن السعر ء1٣۴‏ أقل من 100ء فنحن الآن أمام واحد من خيارين إما أن 
يكون السعر فعلا أقل من مائة وتكون الجملة الشرطية صحيحة و أو أن يكون السعر أكثر من مائة 
وعلية تكون الجملة الشرطية خاطئة. قبل أن ندخل أكثر في الجمل الشرطية نتعرف على هذه 


المعاملات (أو الرموز): 


المعامل معناه 
يساوي 
<> لا يساوي 


< أكبر من (تقرأً في سطر الأكواد من اليسار إلى اليمين) 
أصغر من (تقرأً في سطر الأكواد من اليسار إلى اليمين) 
<= أكبر من أو تساوي (تقرأً في سطر الأكواد من اليسار إلى اليمين) 


أصغر من أو تساوي (تقرأ في سطر الأكواد من اليسار إلى اليمين) 


أمثلة على المعاملات الشرطة أعلاه: 

Price < 100‏ 
لكي تكون الجملة الشرطية أعلاه صحيحة فلا بد أن يكون السعر أقل من مائة وإذا كان أكثر 
فالجملة الشرطية خاطئةء ماذا إذا كان السعر يساوي مائة ستظل الجملة الشرطية خاطئة لأننا حددنا 
في الجملة الشرطية بأن السعر لابد وأن يكون أقل من مائةء أما إذا كانت الجملة الشرطية كالتالي: 


Price <= 100 


فإن السعر إذا كان مائة أو أقل فإن الجملة الشرطية صحيحة (أو بالأصح نتيجة الجملة الشرطية 
شد کر ج رط کون 

Tall <> 150‏ 
فإذا كان الطول ٠۵)‏ يساوي 150 فإن نتيجة الجملة خاطئة أما إذا كان لا يساوي 150 فإن نتيجة 
الجملة الشرطية صحيحة. لنرى كيف يمكن الاستفادة من هذه الشروط كالتالي: 

Score < 20 

Score = Label1.Text 

فإذا كان الرقم الموجود في #11[ها أصغر من 20 فإن نتيجة الجملة الشرطية صح وإذا كان 
الرقم الموجود في 11٥(ه|ا‏ أكبر أو يساوي 20 أو كان عبارة عن نص فإن نتيجة الجملة الشرطية 
خاطئة. 
جملة إذ| كlنت‏ ... ف— If Then Decision Structure‏ 


إذا كان لدينا شرط ما إذا تحقق فإن برنامجنا يقوم بتنفيذ أمر ما فإننا نستخدم أداة الشرط إذا كالتالي 


اذا كان (الشرط) فقم بالتالي 
If condition then statement‏ 
مثال: 
If Score >= 20 Label1.Text = "You Win"‏ 


فإذا كانت الدرجة 50٣۵‏ تساوي 20 أو أكثر (فقط) ستظهر الجملة W١"‏ اه۲" في #۴11طهاء 
أي سيقوم فيجوال بيسك بتغيير الخاصية ٠٠×‏ التابعة للمكون 0#11ه |1 إلى الجملة الموضحة 


غير ذلك لن يتم تغيير الخاصية ٠٠×‏ للمكون المذكور. 


جملة ۴| الشرطية التي تعالج أكثر من شرط: 


نستطيع معالجة أكثر من شرط باستخدام أداة الشرط اء لدينا المثال التالي: 
If Result < 5O Then‏ 
)’رسب NsgBoXx("‏ 
Elself Result >= 50 Then‏ 
)"liجح"(MNMsgB0X‏ 
كما هو واضح في المثال أعلاه بأننا نستخدم ؟ا#ءاع لإضافة شرط جديد إلى الجمل الشرطية»ء فإذا 
كانت النتيجة أقل من 50 درجة فإن الطالب راسب وإذا كانت أكثر من خمسين درجة فإن الطالب 
ناجح ويكون تنفيذ الأمر بإظهار صندوق حوار ×80 "5544٥‏ فيه كلمة ناجح أو راسب. ماذا 
إذا كنا نريد من التطبيق إظهار تقدير للطالب(مقبول» جيدء جيد جدأء ممتاز)» في مثل هذه الحالة 
سنحتاج للكثير من الجمل الشرطية المترابطة فيما بينها كما في المثال التالي: 
Dim Result As Single = 71‏ 
If Result < 5O0 Then‏ 
)’ڇرlسب"(NsgBox‏ 
Elself Result <= 60 Then‏ 
("مقبول")×Ns$80‏ 
Elself Result <= 70 Then‏ 
("مقبول مرتفع")×380ء"× 
Elself Result <= 80 Then‏ 
(”جيد جدا")×s480‏ 


Elself Result <= 90 Then 


('جید جدا مرتفع")×80ء۸ 
Elself Result <= 100 Then‏ 


NsgB0oxX(" jاتمم")‎ 
Else 


("هناك خطاً ماء تأكد من المدخلات") ×0 648" 
End If‏ 

عند تنفيذ البرنامج سيقوم الكمبيوتر بالتأكد من قيمة النتيجة )ك۸ فإذا كانت أصغر من 50 
سيظهر صندوق حوار يفيدنا بأن الطالب راسب لكن في حالة ما درجات الطالب ناجح ولكن أصغر 
من 60 سيظهر صندوق حوار يفيد بأن الطالب مقبول» (للتأكد فقط يمكننا تغيير قيمة RU)‏ 
الموجودة في أول سطر) وهكذا مع بقية الشروط أو الحالات التي حددناها في الأسطر البرمجية 
أعلاه من جيد إلى ممتاز»ء ما يهمنا الآن هو الشرط الأخير ٥ع‏ وما بعدها فهذا الأمر أو هذه 
الحالة تعني أنه إذا لم تطابق أي حالة من الحالات أعلاه فقم بتتفيذ هذا الأمر وتفيدنا ها٤‏ كثيرا 
إذا كان لدينا العديد من الخيارات الخاطئة وخيار واحد فقط هو الصحيح (أو العكس)» فبإمكاننا 


كتابة الأمر ۴| للخيار الوحيد واستخدام #كا لجميع الخيارات الأخرى. 


ملاحظة هامة: 


الترتيب في جملة ۴| الشرطية هام جداء لان الكمبيوتر يتوقف عن البحث عن أقرب 
الشروط المطابقة عند وجود أول شرط مطابق(وعليه فلا بد أن يكون الترتيب بشكل 
تصاعدي للجمل الشرطية بعبارة أخرى من الصغير إلى الكبير)» ففي المثال أعلاه إذا 
بدأنا بالشرط قبل الأخیر Ru) >= 100 ۲۸٥۸(‏ ۴اعءا٤)‏ سيعتمد الكمبيوتر هذا 
الشرط بدون الرجوع لبقية الشروط ولو كانت صحيحة فسيظهر صندوق النص 'ممتاز' 
ولو كانت الدرجة فقط 70 فلا بد علينا أن نتنبه للترتيب في جملة ۴|ا. 


مثال تطبيقي: 


لنأخذ مثال بسيط على ۴| الشرطيةء يوجد لدينا في هذا المثال خياران فقطء فيوجد خيار واحد فقط 
الذي صحيح وبقية الخيارات خاطئة وبسبب هذا سنستخدم If‏ و Else‏ كالتالي: 


ننشئ مشرو عا جديدا وليكن اسمهعھاuء|Ca‏ « نضيف lفرۃ Label , Masked1ex80X‏ 
و Button‏ نستخدم هنا ال ×۴×80 ١4ع "ask‏ بدلا عن صندوق النص الاعتيادي بسبب 
توفر خاصية مميزة فيه وهي تخصيص طريقة كتابة النص بداخله فبعد إضافة المكون 

×80ا×€ 4۲ Maske‏ إلى الفورم نضغط على المثلث الأسود في أعلى يمين المكون ثم نختار ا٥5‏ 
)ئ ليظهر لنا الشكل التالي نستخدمه لتخصيص طريقة عرض النص بداخله: 


Input Mask 


select a predefined mask description from the list below or select Custom to define a custom 


Mask, Description Data Format Yalidaking Type 
Numeric (5-digiks} 12345 Int 

Phone nurmber (S74 SSS-O123 none} 

Phone number na area code S55-O123 inane} 

Short date 1211112003 DateTime 

Short date and kime (US) 121112003 11:20 Gate Time 

Social security number OOD-O0-1234 nane} 

Time (EuropeanfMilitary? ل232‎ DateTime 

Time HUIS} 11:20 DateTime 

Zip Lode 8052-63993 none} 


xLustom = none) 


Mask: وجرن‎ Use YalidaktingType 
Preview = 


نختار Custom‏ تم نعدل )kىNa‏ کما هو موضح بالصورة. بعد إضافة المكونات والتعديل علیھا 
يظهر الفورم كما في الشكل التالي: 


HE Form1 


اكب شنا نانح قسمة 100 على 3 


نضغط )ےا)٣-عاطںم(‏ على الزر ١٥ا8‏ لندخل مباشرة إلى الحدث )ءا التابع للزر 
Butt‏ (هل تتذكر البرمجة بالأحداث!) ثم اكتب الكود التالي: 


If MaskedTextBox1.Text = "33-333" Then 
Nsg60X("حيحص ("الناتج‎ 
Else 
Ns380× ("الناتج خاطئ")‎ 
End If 
قم بتشغيل البرنامج وجرب أدخل الرقم 33.333 في صندوق النص ثم اضغط على الزر سيظهر‎ 
لك صندوق الحوار "الناتج صحيح"» جرب إدخال أي رقم أو نص آخر ماذا تلاحظ.‎ 
.017 توجد نسخة من المثال أعلاه مع المرفقات برقم‎ 
:MaskedText6oX —Û| استخد امات‎ 


كما هو واضح في الصورة: 


Input Mask 


select a predefined mask description from the list below or select Zustom to define a custom 


Mask, Description Data Format Yalidaking Type 
Numeric (5-digiks} 12345 Int3ê 

Phone number (S74 555-123 none} 

Phone number ıa area code S55-O123 inane} 

Short date 1211112003 DateTime 

Short date and kime US} 121112003 11:20 Cate Time 

Social security number OOD-O0-1234 nane} 

Tine (European Milikary ل232‎ DateTime 

Time US} 11:20 DateTime 

Zip Lode 8052-6323 none} 


xLustom z= none) 


Mask: وجرن‎ Use YalidakingType 
Preview = 


نستطيع استخدام ال ×۴×80 ۴4ء" لإجبار المستخدم على كتابة نص محدد بطريقة معينةء 
فمثلا في أمريكا يكتبون رقم الهاتف الموبايل بالصيغة التالية: (574) 0123-555 في بلدي 
(اليمن) يفضل كتابة رقم الموبايل على ثلاث مجموعات لأن رقم الموبايل يتكون من تسع خانات 
كالتالي: 777 ××× ××× فباستخدام ال ×۴×80 كص" يمكننا تخصيص طريقة كتابة 
النص داخل صندوق النص (انظر إلى صندوق النص المقابل ل كه" في الصورة أعلاه نجد 
أننا نستعمل الأصفار والتسعات للتعبير عن السماح بكتابة أرقام بدلا عن الأصفار والتسعات في 
غيرها من المكان الخالي في صندوق النص لا يمكن للمستخدم أن يدخل أية بيانات أخرى) فيمكننا 
أن نلزم المستخدم بإدخال تواريخ أو أرقام بصيغة معينة أو غيرها. 

استخدام المعاملات المنطقية في الجمل الشرطية: 


خلال كتابة الجمل الشرطية قد نحتاج إلى إضافة بعض الشروط في الجملة الواحدة أو قد نحتاج 
إلى تعقيد الشرط البرمجي في هذه الحالة لابد علينا من استخدام المعاملات المنطقية في الجمل 
الشرطية. دعونا نتعرف على المعاملات التالية: 


0۲-۲ (وتعني أو) إذا كان أحد الشرطين صحيحا فإن الجملة الشرطية صحيحة. 


0-٣‏ (وتعني ليس) إذا كان الشرط خاطئًا فالجملة الشرطية صحيحةء وإذا كان صحيحا فالجملة 
E‏ 

×0٤‏ (وتعني إذا كان أحد) إذا كان أحد الشرطين فقط صحيحا فإن النتيجة صحيحة إذا كان 
لفهم المعاملات المنطقية دعونا نأخذ هذا المثال» لنفترض أنه لدينا اله هندسية "المنقلة" وسعرها 15 
را كانت لذا هذه الكر وط المتطفة: 


المثال المنطقي : النتيجة المنطقية 

الآلة الهندسية = المنقلة ۸٣٩۵‏ سعرها > 20 ريال: صحيحة لأن الشرطين صحيحين 
0 و 530 جك ن اخ الو طن مدا 
السعر ليس )۸0٤(‏ أكثر من عشرة : الشرط خاطئ وعلية فالجملة البرمجية صحيحة. 
الآلة الهندسية = المنقلة 0۲× السعر > 20 ريال : خاطئة لأن كلا الشرطين صحيحين. 


أعرف بأن البعض سيتعرض لبعض الصعوبات في هذه الجمل المنطقيةء وخاصة الجملة الأخيرة 
لكن لا بأس من المعاودة في قراءة درس المعاملات المنطقية من جديد لكي نفهم أصول البرمجةء 
فالبرمجة ليست عبارة عن أكواد موجودة مسبقا ضمن بيئة التطوير أو متوفرة في صفحات 
الانترنت» لاء إذا كنت تظن أن هذه البرمجة فأنصحك بأن تتوقف الآن والعودة بعد أن تجد في 
نفسك روح المثابرة والهمة العاليةء سيقول البعض لماذاء أقول لك إذا كانت البرمجة عبارة عن 
نسخ أكواد من بيئة التطوير أو من صفحات الانترنت فأين العامل البشري أو المحدد العقلانيء 
ر وک ر اج رمات كوي إن الات اة فن لز محة هى الان العمة لكل 
أنظمة التشغيل ولكل البرامج الكمبيوترية وكل تطبيقات الانترنت» ستقول لي وماذا تفعل معي أو 
معنا من أول الكتاب (كنت تعطينا أمثلة وتقول فيها أنشئ تطبيقاً جديداً ثم أضف كذا وكذا من 
الأدوات ثم أضف الكود الفلاني إلى الحدث الفلاني» قم بتشغيل التطبيق) سأقول لك نعم فهذه هي 


مهمتي كمترجم لما جاء في الكتاب ثم لأن عملية تنظيم الكتاب جاءت بهذا الشكل لنتعرف على 
مزايا اللغة ثم نختار المواصلة معها أو نتوقف» أعتقد انه بعد الأمثلة التوضيحية من أول الكتاب 
إلى الآن لابد أن تكون قد عرفت كيف تفتح ملف تطبيق سابق وكيف ننشئ تطبيق جديد وأين تقوم 
بوضع الكود المعين وما معنى الحدث» أما من الآن فصاعدا فلا بد عليك أن تنتقل من طور التقليد 
إلى طور الإنتاج من السؤال ب كيف إلى السؤال ب لماذاء علينا الآن التعرف على أساسيات 
البرمجة والمنطق عند الحواسيب. عفواأً على الخروج عن الموضوع ولكن نعود الآن المعاملات 
المنطقيةء مرة أخرى سنأخذ جمل منطقية أخرى لفهم المعاملات المنطقية بشكل أفضل: لنفترض 
ت لدينا عربة (عاءآ۷6) عبارة عن دراجة هوائية (٥)ا8)‏ وبسعر 200 


"Bike" And Price < 300 


Vehicle 
ستكون نتيجة الجملة السابقة صحيحة لأن كلا الشرطين صحيحين.‎ 
Vehicle = "Car" Or Price < 500 
النتيجة صحيحة لأن أحد الشرطين صحيحا.‎ 
Not Price < 100 
ا حه ی کن اط كان اغا‎ 
Vehicle = "Bike" Xor Price < 300 False 
ا کا وکن س فإن النتيجة ستكون خاطئةء أما إذا كان أحدهما فقط (فقط أحدهما)‎ 


ر ملاحظة: 


عندما تستخدم العديد من المعاملات المترابطة في الجملة البرمجية فإن الكمبيوتر يقوم 
بالتعامل آولاً مع المعاملات الرياضية (+»- وغيرها) ثم يقوم بالتعامل مع معاملات 
المقارنة (<» > » =» وغيرها)ء وثالتا يقوم بتحليل المعاملات المنطقية (0۲ ,١۸۸۵ء‏ 


وغیرهما) 


OrElse ş AndAlso استخدام‎ 


نستطيع أن نقول أن إضافة المعاملات أعلاه إلى بيئة التطوير جاءت من قبيل زيادة الإنتاجيةء أو 
من طريق التطوير الذي يزداد يوما بعد يوم في الفيجوال بيسك. هذين المعاملين يعتبران جديدين 
على مبرمجين فيجوال بيسك 6. فمثلا المعامل المنطقي 0ئا۸۸0۸ هو نفس المعامل ۸٣١‏ ولكن 
مع إضافة صغيرة جداً وهي التحقق من الشرط الأول قبل الانتقال إلى الثاني فإذا كان الشرط الأول 
خاطئًاً لا يقوم بالانتقال إلى الشرط الثاني بل يقوم مباشرة بالإبلاغ بأن نتيجة الجملة خاطئة مما 
يزيد من سرعة التأكد من الجمل البرمجة الشرطية بدون التحقق من جانبي الشرطء أما المعامل 

۵ فيقوم بالتأكد من الشرط الثاني ثم يظهر نتيجة الخطأً (وهذا مما لا داعي له إذا استخدمنا 
المعامل 0ئا۸۸۵۸). أما المعامل 5۵ا 0۲٤‏ فيقوم بالتأكد من الشرط الأول فإذا كان صحيحا فيقوم 
بإظهار النتيجة صحيحة بدون التأكد من الشرط الثاني. 


Select Case تدم‎ 


باستخدام الأداة الشرطية ١۵58‏ ٤ا5۴‏ والتي تعني "اختر الحالة"٠‏ نعطي للكود البرمجي سهولة 
أكثر في القراءة والمراجعةء استخدمنا الأداة الشرطية #كه) 5٥1۴٤‏ في الفصلين الثالث 
والخامس من هذا الكتاب» وعندما يكون لدينا قائمة ×80 ءا أو ×80 0ط"K0۳‏ وتفيدنا كثيراً إذا 
كان لدينا متغير واحد وبخيارات متعددة. الهيئة العامة ل عه 5)۴٤‏ كالتالي: 
Select Case Variable‏ 
Case Values1‏ 
Statment1‏ 
Case Value2‏ 
Statment2‏ 
Case Value3‏ 
Statment3‏ 
End Select‏ 


لاحظ بان ۵5€) 5816٤‏ تبداً ب Cas€‏ ectاعS‏ وننتهي ب اع ¬ وكلمة 
٥اb ٣2‏ نستعيض عنها ب متغير معين أما كلمة 1٥ا۷‏ فمعناها قيمة المتغير في الحالة 
الأولىء وكذلك 2عں اه۷ قسمة المتغير في الحالة الثانية. فإذا طابقت قيمة المتغير في الحالة 
الأولى فإن البرنامج سينفذ الأمر الموجود بدل الكلمة ١6۸٤1‏ ه5 وإذا طابقت قيمة المتغير في 
الحالة الثانية 1€2ا)ه۷ فإن البرنامج سينفذ الجملة البرمجية الموجودة بدل 0٥۸٤2‏ ه5 وهكذا. 
فلنأخذ هذا المثال وهو عبارة عن ترجمة لما تعلمناه عن الأداة الشرطية C25٥‏ ا٤‏ )ع5: 
لنفرض أن المستخدم سيقوم بإدخال العمر (عمر المستخدم)» فإذا أدخل المستخدم العمر 12 نريد أن 
تظهر له رسالة تقول له "أنت قاصر بحسب القانون"'» أما إذا أدخل العمر 15 فتظهر له رسالة تقول 
اک کت کو ی و ق ی 
امتلاك وإدارة الشركات" وإذا أدخل العمر 40 تظهر له رسالة تقول له 'دخلت مرحلة الوقار" وإذا 
أدخل العمر 65 تظهر الرسالة 'بلغت عمر التقاعد'. لنقوم بتطبيق المثال أعلاه:- 
Dim Age As Integer‏ 
Age = 18‏ 
Select Age‏ 
Case 12‏ 


( "نت قاصر بحسب القانون") ×380ء"۸ 
Case 15‏ 

("أنت مكلف بحسب القانون المدني")×80عء"۸ 
Case 18‏ 

("الآن يحق لك امتلاك وإدارة الشركات")×480ك×N‏ 
Case 40‏ 

("دخلت مرحلة الوقار ")×480ءN×‏ 


Case 65 


( "بلغت عمر التقاعد")×Ns980‏ 
End Select‏ 
لاحظ بأننا حددنا العمر ب 18 في بداية الكود لكنه في نفس الوقت بإمكاننا جعل العمر في 
٣ ۵×80×‏ قابل للتغيير من قبل المستخدم وسيقوم البرنامج بإظهار رسائل الحوار تبعا للأرقام 
التي سوف يكتبها المستخدم. 
كما تدعم أداة الشرط ٥5ھ)‏ )ءام استخدام ٥٤ا٤‏ مك قبل كتابة اع "ع فبإمكاننا 
كتابة الجملة البرمجية كاملة ب عه ٤ا5‏ وإذا لم تطابق أي من المدخلات من قبل 
المستخدم فإنه سيعمل بالأمر البرمجي الموجود بعد ها٤‏ هءة) ومعناها (أي حالة أخرى غير 
مذكورة). وبإمكاننا كذلك استخدام المعاملات المنطقية (= < < > <= >=) في الجمل 
البرمجية الشرطية ب ٥ه‏ اا5 ولكن بعد إضافة ء| بعد كلمة 58ه). نطبق بالمثال التالي: 
Dim Age As Integer‏ 
Age = 66‏ 
Select Case Age‏ 
Case ls < 15‏ 
("أنت قاصر بحسب القانون")×۸"8480 
Case 15‏ 
("أنت ا بحسب القانون المدني")×480ء× 
Case 18‏ 
("الآن يحق لك امتلاك وإدارة الشركات")×980ك× 
Case 40‏ 
("دخلت مرحلة الوقار ")×460ءN‏ 


Case ls >= 65 


( "بلغت عمر التقاعد ")×0 Ns$6‏ 
Case Else‏ 
("تأكد من الرقم المدخلء هناك خطأً ما")×Nsg80‏ 
End Select‏ 

نستخدم 5٥1٤) ٥85€‏ إذا كان لدينا متغير واحد وله ثلاث أو أكثر من ثلاث حالات أو قيم» أما 
إذا کان لدینا متغیر وله حالتین أول اقل فیفضل استخدام |۴.۲٣ ٣۵۸‏ . 
مثال: 
أنشئ مشروعاً جديدأ وسمه كه tءاع؟‏ ل۸ » قم بإضافة أربعة ليبلات و×0 58ا » و زر 
07 إلى الفورم ثم قم بتعديل الخصائص لتتناسب مع الشكل أدناه (من دروسنا السابقة أعتقد 


أنه لديك القدرة على التعامل مع الخصائص» إذا أحسست أن هناك شيء صعب ارجع من جديد من 
أول الكتاب) 


Form a E)‏ اه 


هلا باللغات العالمية 


أختر البلد 


الدول العربية 


iضbiٰ Double -Click‏ علی الفورم فيحوأنا إلى صفحة الكود وبالتحديد إلى الحدث 2ا التابع 
للفورم»› نکتب فيه الكود التالي» لتحميل العناصر في قائمة ×0 :11S8‏ 


ListBox1.|te ms. Add ("الدول العربية'(‎ 


ListBox1.ltems.Add( England") 
ListBox1.ltems.Add(" Germany") 
ListBox1.ltems.Add("Mexico") 
ListBox1.ltems.Add( Italy") 
ثم نضغط على الزر ونكتب الكود التالي لإغلاق البرنامج:‎ 
End 
وكذلك نضغط على القائمة ×580أا لنتحول مباشرة إلى منطقة الكود وبالضبط إلى الحدث‎ 
التابع للقائمة 60×1ءآا ونكتب فيها هذا الكود الذي يحدد ماذا‎ ءاectedاndex‎ changed 
اختار المستخدم من بنود القائمة ويكتب جملة الترحيب في 14٥0ه1ا وكذلك يكتب نص الاختيار‎ 
(طھ]:‎ ٥)3 في‎ 
Select Case ListBox1.Selectedlndex 
Case 0 
Label3.Text = ListBox1.Selectedltem 
Lab٤14. ۲٥× = "أهلاء عزيزي المبرمج"‎ 
Case 1 
Label3.Text = ListBox1.Selectedltem 
Label4.Text = "Hello, programmer" 
Case 2 
Label3.Text = ListBox1.Selectedltem 
Label4.Text = "Hallo, programmierer" 
Case 3 
Label3.Text = ListBox1.Selectedltem 


Label4. Text = "Hola, programador" 


Case 4 
Label3.Text = ListBox1.Selectedltem 
Label4.Text = "Ciao, programmatore" 
End Select 

قم بتشغيل البرنامج وجرب أختر أية بند من بنود القائمة ×80ءآا ماذا تلاحظء سنلاحظ انتقال 
اسم البند إلى 0613ها وكذلك ظهور جملة في 2614ا بحسب الجُمل التي أضفناها في منطقة 
الكود. ستجد نسخة من المشروع أعلاه مع المرفقات برقم 018. الآن انتهينا من الجمل البرمجية 
الشرطية باستخدام ۲٣۸6١‏ ..۴| وكذلك باستخدام ٤458‏ ا٤‏ )ع5 إذا كان لديك صعوبة عد إلى 
الشرح ثانية لفهم طبيعة ۲۸۵۸ ..۴| و ٤458‏ هام5 لأننا بالطبع سنتحاج لھا كثيرا في هذا 
الكتاب» ومع تقدمك في عالم البرمجة ستجد إن ۴..۲۸۵۸| و ٤۵5€‏ ام5 لا يمكن أن يُستغنى 
عنها في أي برنامج من البرامج. 


التعرف على تحرك الماوس - أحداث الماوس 10۷٥۲١‏ 


بدأنا في هذا الفصل في التعرف على الأحدات التابعة للمكونات البرمجية المتوفرة في بيئة التطوير 
والتي يتعامل معها الفيجوال بيسك» ومع تقدمنا في هذا الفصل عرفنا كيف يتم التعامل مع الأحداث 
بالربط الشرطي باستخدام ۲۲۵۸ ..۴| و ٤5۵‏ ا5ء أما الآن سنتعرف كيف نتعامل مع 
أحداث الماوس والتي سوف نراقب حركة الماوس 10۷8۲ عءلاه" فوق قائمة الدول المتوفرة في 
القائمة ×60ءآا والموجودة ضمن المتال رقم 018 نفتح المثال المذكور ونذهب إلى محرر 
الكود ونختار المكون 80×1ءآا لنذهب إلى الحدث ۳10۷6۲ عءاه" كما في الصورة التالية: 


# MouseCapture Method Name | 
# MouseClick 
a21, 3¢ # MouseDoubleClick 
| F MouseDown 


MouseHover 


. Items . Add ("Hexico" # MouseLeawe 
.Add ("Italy") # MouseMove 
# Mousellp 
# MouseWheel 
Private Sub ListEBox1_MouseHove # Mowe 
If ListBox1.SelectedIndex ۶ ParentChanged 
Fı - 


mm 


وبعد الاختيارات المحددة في الصورة أعلاه تقوم بيئة التطوير بكتابة الكود في الصورة في التالية 
في منطقة الكود: 
End Sub‏ 
Private Sub ListBoxl1 MouseHover (ByVal sender As Object, ByVal e As System.Even‏ 


End Sub 


:End Sub ڪ‎ Private Sub jıب نضيف الكود التالي‎ 

If ListBox1.Selectedindex < O0 Or ListBox1.SelectedIlndex > 4 Then 

"قم باختيار بند من القائمة" = ۲٥×‏ .3)ع٤abا‏ 
End If‏ 

فمع العلم بأن البنود المختارة من القائمة 80×1ءآا تتراوح أرقامها (أرقام ترتيبها في القائمة) بين 
0 و 4 فتم استخدام الجملة الشرطية ١٣۸٥۸‏ ..۴| لمعرفة إذا ما لم يتم اختيار بند من ال 0 إلى 4 
فتظهر لنا رسالة في #13(ه |1 تقول "قم باختيار بند من القائمة"٠‏ لنقوم على أساسها باختيار بند من 
القائمة» كيف تظهر هذه الرسالة! من الكود أعلاه قمنا بمراقبة الحدث 10۷٥١‏ ع٥كuه0"‏ لمعرفة 
حركة الماورس فوق القائمة فإذا تحرك الماوس فوق القائمة ولم يكن هناك بند قد تم اختیاره من بنود 
القائمة (البنود من 0 إلى 4) ستظهر تلك الرسالة في 5613ع ا. ستجد نسخة من المشروع المعدل 
في المرفقات برقم 018. 


خلاصة الفصل السادس: 
من اجل أن 
لكتابة جملة شرطية 


|۴... ۲٣۸٥۸ لاستخدام‎ 


استقبال المدخلات من 
المستخدم على هيئة أو 
صيغة محددة. 
لاستخدام 


Select Case 


قم بالتالي 
استخدم احد المعاملات = <> > <» >= <= للربط بين قيمتين. 


If condition1 Then 
Statements1 
Elself condition2 Then 
Statements2 
Else 
Statements3 
End If 
حيث سيتم تنفيذ الأمر في 1ئ١6 "ه5 إذا طابقت الحالة مع‎ 
وسيتم تطبيق الأمر في 52ا١8 ه5 إذا طابقت الحالة‎ عدnditا1‎ 
وإذا لم تطابق الحالتان الأوليتان سيتم تنفيذ الأمر في‎ 0١۵1٤10١2 مع‎ 


.Statment3 


نستخدم "ak41 6٥×)80×‏ ونضبط خصائصه على الهيئة التي نريد. 


Select Case variable 
Case value1 


Statement1 


لزيادة سرعة تنفيذ 


الجمل الشرطية 


كتابة كود لحدث ما 


الفصل السابع 


Case value2 
Statement2 

Case Else 
Statement3 


End Select 


OE N EET‏ من عاطهآ٣‏ ج۷ فإذا طابقت القيمة 1 1عں ا۷ مع 
المتغير سيتم تطبيق الأمر في الجملة ٥١٤1‏ "ها5 وإذا طابقت القيمة 2 
۷62 سيتم تطبيق الأمر في الجملة ۵۸٤2‏ ع٤5‏ وإذا لم تطابق 
القيمتان أعلاه سيتم تنفيذ الأمر في الحملة ۵۸3١ع‏ ه)؟. 


And, Or, Not, XOF جaدلل نستخدم المعاملات المنطقية‎ 


نستخدم الأدوات الشرطية ۸۸۵۸150٥‏ و ع٥5ا0۲۴‏ لأن البرنامج سيقوم بالتأكد 
من الشرط الأول فإذا لم يطابق في حالة ۸۸۵۸150 فإنه مباشرة وقبل مطابقة 
الشرط الثاني سيظهر نتيجة عدم المطابقة أو عاه۴» أما في حالة €‌sئOrEl‏ 
فإن البرنامج سيقوم بمطابقة الشرط الأول وفي حالة المطابقة فإنه ومباشرة 


وبدون التحقق من الشرط الثاني سيطهر نتيجة المطابقة الإيجابية أو ٥ں٣۲.‏ 


نذهب إلى محرر الكود ومن أعلى يمين منطقة الكود نختار المكون المراد 
تتبع أحداثه ثم نذهب إلى اليمين ونختار الحدث المراد وسيقوم الفيجوال بيسك 
مباشرة بكتابة كود الحدث» ما علينا إلا أن نكتب الكود المراد تنفيذه بين 


.End Sub jug Private Sub 


Loops and Timers الحلقات التكرارية والمؤقتات‎ 


يعد استخدام الحلقات التكرارية ×۴0۲...۸۵ هاماً جداً بسبب توفير العديد من الكود فبدلاً من 
تكرار الكود عدة مرات نستخدم حلقة تكرارية ×6 ۴١١...۸‏ لاختصار الكود. الشكل العام لجملة 
۴0١...Ne×‏ البرمجية كالتالي: 
For Variable = start to end‏ 
Statment1‏ 
Statment2‏ 
Statment3‏ 
Next [Variable]‏ 
حيث يتم أولاً تعريف المتغير #اطه٣ه۷‏ ومن ثم استخدامه في حلقة التكرار» ونكتب بداية الحلقة 
التكرارية بدلا من 54۲ ونهايتها بدلا من ٣۵‏ ثم نكتب الأوامر البرمجية بدلا من 
5tament1۰ Statment2. Statment3‏ وسيتم تنفيذها من قبل البرنامج الواحدة تلو 
الأخرى. لنأخذ مثال بسيط على الحلقات التكرارية: 


Dim i As Integer 


For i = 1 To 4 
Beep() 
Next i 


في الكود أعلاه غرفنا المتغير أ على إنه عدد صحيح ثم فتحنا حلقة تكرارية من 1 إلى 4 وسيتم 
تنفيذ الأمر م٠٠8()‏ عند كل مرة أي أن البرنامج سيقوم بتنفيذ الأمر )(8٠6‏ أربع مرات بسبب 
وجود الحلقة التكراريةء فبدلا من كتابة الأمر )(8٠6‏ أربع مرات تم ربطه بحلقة تكرارية 
)× ...١۴ء‏ تخيل إذا لم توجد الحلقات التكرارية في بيئة التطوير فسيكون علينا كتابة ألأمر 
أعلاه كما يلي: 
Beep()‏ 
Beep()‏ 


Beep() 


Beep() 


قد يقول قائل"لا داعي للحلقات التكرارية سأقوم بكتابة المر البرمجي أربع» ثلاث أو خمس مرات"' 
نقول له ماذا ستفعل إذا كان لابد عليك من تكرار عملية ما مائة مرة أو أكثر في مثل هذه الحالة 
ستكون مضطرأ لاستخدام الحلقات التكراريةا×"...۴0۲. تستطيع استفادة الاستفادة القصوى من 
الحلقات التكرارية وسنوفر الكثير من الجهد. ستلاحظ هذا في ما يلي من الشرح عن الحلقات 
التكرارية. 


مثال على استخدام الحلقات التكرارية لكتابة أكثر من سطر نصي في مربع النص 


أولا عليتا أن نعرف أننا نستطيع أن نسند مخرجات الحلقات التكرارية إلى أي خاصية من 
الخصائص أو إلى صندوق نص معين أو إلى مخرجات على هيئة معينة أو إلى مدخلات في 
برنامج أخر قد يكون متصفح إنترنت أو أي قاعدة بيانات» فكرة كتابة أكثر من سطر نصي في 
صندوق النص تتم بواسطة تغيير الخاصية ٣٥‏ )اا لصندوق النص من ۴٥اھ۴‏ إلى عمuں٣‏ 
فقط وبكل سهولة. أنشےءَ اوغا ولیکن اسمه 100۳ ۳٥۲‏ بعد ظهور الفورم الفارغ 
في بيئة التطوير قم بإضافة زر ١0لا5‏ إلى الفورم لكن هذه المرة ستقوم بذلك بطريقة جديدة 
ليست طريقة السحب والإلقاء التي تعودت عليها ولكن بواسطة الضغط )٤)٣-عاbاuه0‏ على 
الزر ١0ا8‏ في نافذة الأدوات فسيقوم الفيجوال بيسك مباشرة بإضافة الزر إلى أعلى يسار 
الفورم» فطريقة ال ))٣-عاطاه0‏ تزيد من إنتاجيتنا وقت تصميم البرنامج. نضغط -ع€اubم0‏ 
ما كذلك على مربع النص ٦۴×80×‏ في صندوق الأدوات ليقوم الفيجوال بيسك بإضافة 
صندوق نص إلى الفورم نغير الخاصية ٣٥‏ )ااا لصندوق النص من ٥ا۴۵‏ إلی ٥ا٣۲‏ ونقوم 
بتعديل خاصية ال ٠۴×‏ للزر ١0ا8‏ إلى 'كرر" بعد التعديلات أعلاه وبعد تغيير أماكن 
الأدوات على الفورم سيكون الفورم بهذا الشكل: 


نضغط )٤)٣-ع‏ اه0 على الزر 'كرر" لنكتب هذا الكود في محرر الكود: 
Dim i As Integer‏ 
Dim Wrap As String‏ 
Wrap = Chr(13) & Chr(10)‏ 
For i = 1 To 10‏ 
TextBox1.Text = TextBox1.Text & "Line " & i & Wrap‏ 
Next i‏ 
في السطر الأول من الكود عرفنا أ على أنه عدد صحيح وفي السطر الثاني عرفنا م۷۲2 على 
انه متغير من النوع 5۲1١4‏ (وللعلم النوع 5۲١4‏ متغير خاص بالنصوص ويعني 'نص" أي 
نص حتى الضغط على E١6١‏ في الكيبورد يعتبر نص المسافة 54٤€‏ في الكيبورد تعتبر نص 
الخ). حددنا قيمة ۷۲۵ بأنه يساوي )٤۸۲)13‏ و ۸۲)10)) في الكيبورد ف ۸۲)13)) تنقل 
مؤشر الكتابة إلي بداية السطر أما ۸۲)10) فنتقل بالكتابة من سطر إلى آخر في صندوق النص. 
عند تنفيذ البرنامج يقوم البرنامج بكتابة 1٣6€‏ عشر مرات في صندوق النص لكن بالاستعانة 
بالمتغير ص۷۲۵ يتم الانتقال من سطر إلى آخر في صندوق النص» وبسبب المتغير أ يتم كتابة رقم 
مع ۵٣ا‏ في كل سطر يعكس هذا الرقم رقم ¡ في السطر المحدد ولأن أ تساوي من 1 إلى 10 


فكل سطر من الأسطر سيحتوي على رقم من الأرقام من 1 إلى 10 بجانب كلمة ۵٣ا‏ لأن & تقم 
بعملية الربط بين النصوص بداخل مربع النص» إذا رأيت أن هذا عسير على الفهم قم بقراءته تانية 
ثم ادرس الكود من جديد لمعرفة كيف تم ذلك. ستجد نسخة من التطبيق أعلاه في المرفق رقم 
9. بعد تشغيل البرنامج يمكنك الضغط على زر كرر أكثر من مرة وفي كل مرة سيقوم 
البرنامج بإضافة عشرة أسطر جديدة إلى صندوق النص ولن نرى التغيير بسهولة بسبب تكرر نفس 
الكلمة ولعدم وجود أشرطة التمرير في صندوق النص ولإضافة أشرطة التمرير إلى صندوق 
النص نذهب إلى خصائص صندوق النص ونختار الخاصية 5c۲0٥))5 3٣١‏ ونغيرها من N0٣٥۴‏ 
إلى ۷6۲٤1٤۵‏ ليقوم الفيجوال بيسك بإضافة أشرطة تمرير عمودية لصندوق النص. للعلم صندوق 
النص ٣۴×80×‏ لا يسمح بكتابة نصوص كثيرة فيه وأقصى حد ممكن للنص بداخله ما يساوي 
5 ۸ والتي تساوي خمسي ألف حرف أو أكثر تقريباء وفي حالة أردنا كتابة نصوص أكثر في 
صندوق النص من هذا الحد فما علينا إلا أن نستخدم أداة صندوق النص R۸ ٥×80×‏ التي 
تستوعب الكثير من النص مع العديد من الخيارات (خيارات النص). 
تصميم حلقات تكرارية ۴٠١... ٠٥‏ احترافية 
بسبب تعدد استخدامات الحلقات التكرارية ص۴0۲...]00» هناك العديد من المناسبات التي نحتاج 
لتعديل الحلقة التكرارية لتنفيذ التكرار ولكن بشروط معينةء فمثلا يمكننا تغيير نقطة البداية وكذلك 
نقطة النهاية وفي نفس الوقت يمكننا تغيير مقدار الخطوة أو القفزة من رقم إلى آخر دعونا نأخذ 
کو ن 
Dim i As Integer‏ 
Dim Wrap As String‏ 
Wrap = Chr(13) & Chr(10)‏ 
For i = Š5 To 25 Step 5‏ 
TextBox1.Text = TextBox1.Text & "Line " & i & Wrap‏ 


Next i 


بعد تتفيذ البرنامج والضغط على الزر 'كرر" سيقوم البرنامج بكتابة التالي: 


Line 5‏ 
Line 10‏ 
Line 15‏ 
Line 20‏ 
Line 25‏ 
لماذا! لأننا حددنا نقطة بداية التكرار 5 ونقطة الانتهاء 25 ومقدار الخطوة بين كل تكرار والذي 
يليه 5» نستطيع كذلك جعل الخطوة عبارة عن رقم عشري فنكتب الكود أعلاه : 
Dim i As Single‏ 
Dim Wrap As String‏ 
Wrap = Chr(13) & Chr(10)‏ 
For i = 1 10 2.5 Step 0.5‏ 
TextBox1.Text = TextBox1.Text & "Line " & i & Wrap‏ 
Next i‏ 
فستكون المخرجات في صندوق النص كالتالي: 
Line 1‏ 
Line 1.5‏ 
Line 2‏ 
Line 2.5‏ 
حلقات التكرار نستطيع استخدامها في العديد من المهام التي نحتاجها في برامجناء فالمسألة ليست 
تكرار أرقام وفقط لكن يمكننا استخدامها في تكرار عرض صور معينة على الشاشة أو غيرها من 
الاستخدامات لنأخذ مثلاً هذا التطبيق الذي يمكننا من عرض العديد من الصور على الفورم واحدة 
تلو الأخرى يفضل بينهم صندوق حوار ×80 #عهءءه" وبعد أن يقوم المستخدم بالضغط على 
صندوق الحوار يقوم البرنامج بإظهار الصورة التالية. لننشئ تطبیقاً جدیدا باسم ۴0۲...100 
56 ونضيف زر 810١‏ للفورم ونضبط الخاصية ٠۴×‏ على “أظهر الأربعة الوجوه” 


وصندوق للصورة ×80 ۲۴ ں۴1 ونضبط الخlاصية pû Stretchlmage ylJe Size Mode‏ 
نضغط )٤)٣-ع‏ )اه0 على الزر ونكتب الكود التالي في محرر الكود: 
Dim i As Integer‏ 
For i = 1 To 4‏ 
PictureBox1.lImage = System.Drawing.lImage.FromFile _‏ 
("C:\Users\Marwan\Desktop\vbsbs\020\face\faceO" & i & ".ico")‏ 
("اضغط هنا لعرض الوجه التالي") ×380ء× 
Next‏ 
لاحظ هنا أن السطر الرابع من الكود معني بتحديد مسار وجود الإيقونات التي تبدأً أسمائها ب 
1" إلى ۴٥۵04‏ (بالطبع سيختلف مسار الأيقونات في جهازك عن المسار أعلاه فتنبه 
لذلك). قم بتنفيذ البرنامج ولاحظ طيف يقوم البرنامج بعرض الأيقونات واحدة تلو الأخرى في 


ر ملاحظة 


في الكود أعلاه السطرين الثالث والرابع عبارة عن سطر واحد ولكن بسبب طول السطر 
في محرر الكود قسمناه إلى سطرين (مع إمكانية عدم تقسيمه إلى سطرين) بواسطة 
طباعة مسافة في سطر الكود ثم الإشارة _ ثم E٣8۲‏ بعدها مباشرة. نستطيع تقسيم أي 
سطر برمجي طويل بنفس هذه الطريقة. 


ملاحظة 


قمنا بعرض صندوق حوار بين كل صورة وأخرى لإبطاء عرض الصور» لان طريقة 


عرض الصور ستكون سريعة جدا لدرجة غير مرئية. 


توجد نسخة من التطبيق أعلاه في المرفق رقم 020. 


نستطيع جعل المستخدم يقوم بتغيير الصورة ليس عن طريق الموافقة على صندوق النص 
Ness 80×‏ ولكن بواسطة الضغط مرة أخرى على الزر ١0ا8‏ في هذه الحالة نقوم 
بتعريف المتغير أ كالتالي: 
Dim i As Integer = 1‏ 

ولكن لابد أن نقوم بتعريفه كمتغير عام على طول الفورم» بعبارة أخرى لابد أن نقوم بتعريفه تحت 
ال ۴0۳1 ssهاC‏ icاPub‏ مباشرة» بعد کتابة التعریف بالمتغیر والضغط علی E۸٤٥۲‏ نلاحظ 
أن بيئة التطوير قد أضافت سطر للتفريق بينه وبين بقية الدوال والأوامر البرمجية في محرر الكود 
وتسمى منطقة التعريف تلك منطقة 'التعريفات". تحت الحدث )ءا التابع للزر 1١0)0ا8‏ نحذف 
الک ها جر ونكت دل ع ها ك 

PictureBox1.lImage = System.Drawing.lImage.FromFile _ 


("C:\Users\Marwan\Desktop\vbsbs\020\face\faceO" & i & ".ico") 


1= +1 
If i = 5 Then 
i= 1 
End If 


الملاحظ في الكود أعلاه أننا نزيد قيمة المتغير أ رقم واحد مع كل عملية ضغط على الزر وعلية 
فسيقوم التطبيق بإظهار صورة جديدة كل مرة وعند وصول البرنامج إلى الصورة الرابعة سيعود 
من الصورة الأولى لأننا كتبنا الشرط ۴| إذا كانت أ¡ تساوي 5 فقم بتغيير القيمة إلى 1ء وعلى هذا 
يقوم البرنامج بعرض الصور من 1 إلى 4 بشكل متسلسل. ملاحظة هنا بأننا نستطيع كتابة الكود: 

i= +1‏ 
بهذا الشكل: 


i +=1 


لإن 1 + آ = آ هي نفسها 1=+ آ 


التطبيق أعلاه هو عبارة عن التطبيق رقم 020 ويوجد التعديل بالمرفقات بالرقم ا020 
إذا ظهرت لك رسالة خطاً وقت تنفيذ البرنامج فتأكد من مسار الأيقونات في جهازك أنه المسار 
الصحيح المذكور في الكود وإلا قم بتغيير الكود ليتناسب مع المسار الجديد للملف. 
إنهاء الحلقات التكرارية بدون تكملة التكرار 
إذا ردنا إنهاء الحلقات التكرارية عند تحقق شرط معين علينا تحديد ذلك الشرك في الجمل 
التکرارية × ۴٥۲... ٥‏ ثم كتابة ۴0۲ آ×ع وسيقوم البرنامج مباشرة بالتوقف عن التكرار 
والانتقال أو تنفيذ السطر البرمجي الذي يلي الحلقة التكرارية. لنأخذ هذا المثال الذي يظهر لنا 
صندوق مدخلات ×0 |١18‏ عشر مرات وفي حالة قام المستخدم بإدخال الكلمة "انتهى" سيتوقف 
عن التكرار (قبل ظهور العشر تكرارات) حتى إذا كانت المرة الثانية أو الثالثة من التكرار: 
Dim i As Integer‏ 
Dim InpName As String‏ 
For i = 1 To 10‏ 


InpName = InputBox("Enter your name or type Done to quit.) 
If InpName = "yتil"‎ Then Exit For 
TextBox1.Text = InpName 
Next i 
سيقوم البرنامج بترك‎ |١۷ 80× إذا قام المستخدم بإدخال الكلمة "انتهى" في صندوق المدخلات‎ 
التكرار والانتقال إلى السطر البرمجي الذي يليه (أي إلى السطر الذي يلي ¡ خ×ع.).‎ 
Do... Loop الحلقات التكرارية بطريقة ازا‎ 
O A E E ETE CN 
وهي عبارة عن بدیل للتعبیر ا×۲...۸۱€٥۰۴ فیتم تنفیذ تکرار معین حتی یتحقق شرط‎ 0...1۲۳ 
ما ثم يتوقف التكرار. 00...100 هامة جداأ وضرورية لأننا في بعض الأحيان قد لا نعرف كم‎ 


عدد مرات التكرار التي نريدهاء فإذا كنا في تطبيق ما نريد أن نستخدم تكرار ما لمرات غير 
كتابة المستخدم الكلمة "انتهى" في صندوق الإدخال ×80 ام”| لنأخذ هذا المثال: 
Dim InpName As String‏ 


Do While InpName <> "Jٳ١ھتil"‎ 


".اكتب الأسم أو اكتب الكلمة "انتهى" للخرو ج"( InpName = |p uU80X‏ 


If InpName <> "yتil"‎ Then TextBox1. Text = TextBox1.Text & 
Chr(13) & Chr(10) & InpName 


Loop 


فسيقوم البرنامج بإضافة أي اسم تتم كتابته إلى صندوق النص 1۴×80×1 حتى يتم كتابة الكلمة 
"انتهى" في صندوق النص في حينه فقط سيغلق صندوق النص. لاحظ في الكود أعلاه أننا كتبنا 
الكلمة "انتهى" داخل علامتين من علامات التنصيص كالتالي "انتهى" لإن بيئة التطوير لا تقوم 
بإضافة علامات التنصيص إلى رسائل الخوار مع المستخدم إلا إذا كررناها مرتين. تنبه هنا أن 
الكلمة "انتهى" حساسة لحالة الأحرف إذا كانت بالإنجليزية وكذلك حساسة لنوع الأحرف باللغة 
العربيةء فلا يمكننا كتابة أنتهى أو انتهي بدلا عن 'انتھى' وكذلك لا یمکننا کتابة DONE ڪİ Done‏ 
بدلا عن done‏ (إذا كانت الكلمة 4076 بدلا عن انتهى)» بالنسبة للغة الإنجليزية نستطيع تعديل 
خاصية حالة الأحرف بواسطة الدالة 5۲۳0۳٧‏ التي سوف نتناولها في الفصل التالث عشر من 
هذا الكتاب بعون اللهء أما بالنسبة للغة العربية فلا بد من كتابة كل كلمة نريدها في منطقة الكود 
كالتالي: 


If InpName <> "”ھتil"‎ Or “qتil”‎ Then TextBox1.Text = TextBox1.Text & 
Chr(13) & Chr(10) & InpName 


فقط أضفنا الكلمة "انتهي" لتوقعنا بأن بعض المستخدمين سوف يستخدمها لإنهاء التكرار 


0...1 وكذلك يمكننا كتابة جميع الكلمات المتوقعة والمقاربة ل انتهى في منطقة الكود 
وربط كل الكلمات بالمعامل المنطقي 0١‏ أو تصميم دالة للتعامل مع الكلمات والأحرف المتشابهة. 


تجنب التكرارات الغير منتهية 
عند تصميم تكرار معين لابد لهذا التكرار أن تكون له نقطة نهاية لإن التكرارات التي لا نهاية لها 
قد تجعل من برنامجنا عبئًاً كبيرأً على الذاكرة المؤقتة (الرام) وقد تجعل برنامجنا لا يستجيب 
للمستخدم. تخيل معي هذا التكرار: 
Dim Number as Double‏ 
Do‏ 
(".- للخروج1اكتب أي رقم لتتم كتابة مربعة. اكتب Number = |npUt80X("‏ 
Number = Number * Number‏ 
TextBox1.Text = Number‏ 
Loop While Number >= 0‏ 
لاحظ الكود أعلاه أننا في الرسالة كتبنا للمستخدم اكتب "-1" للخروج لكننا لم نترجم ذلك فعلاً في 
منطقة الكود لإن مربع ال "1" يساوي 1 وعلية سيظل برنامجنا بإيجاد المربع لأي رقم سوف 
دة المقم كى قا الا عة كن كاه تحذة طر هة اخزى لإغااق ,النكرار. 


ملاحظة: 


تأكد من وجود نهاية منطقية للتكرارات الموجودة في برنامجك. 


lتخدlم Loop...Unti|l‏ 
إذا کان لدینا تكرار معین ونریده أن يتوقف عند تحقق شرط معين نستخدم )1" لا...100P‏ كما في 
المثال التالي والذي سيتوقف التكرار عند كتابة المستخدم الكلمة انتهى في صندوق المدخلات 
InputBox‏ : 
Dim InpName As String‏ 
Do‏ 


("اكتب أي كلمة أو اكتب انتهى لإغلاق التکرlر InpName = |nput8ox("‏ 


If InpName <> "Done" Then TextBox1. Text = InpName 


Loop Until InpName = "J”١ھتil"‎ 


من الملاحظ أن )أ١‏ لا...م0 ها هي نفسها 1٥٥p...)‏ مع فرق بسيط فقط في المعامل في 
جملة الشرط في السطر الأخير فبدلا من کتابة = مع )آ٣‏ لا... L٥0۵‏ نکتب <> مع 
eا00p...Whiا.‏ وتستطيع استخدام أي منهما مع التنبه لمعامل الشرط المذكور. 


الأداة "|1 المؤقت: 


المؤقت أداة عظيمة يمكننا الاعتماد عليها في الكثير من المهمات البرمجيةء فالمؤقت هو عبارة عن 
ساعة إيقاف مخفية تستطيع التعرف على ساعة النظام والاستفادة من ذلك في برامجك. تستطيع 
الاستفادة من أداة المؤقت في الكثير من الأمور بتكرار أمر برمجي معين بين كل وقت وآخر أو 
بحساب ساعات العمل على برنامج معين أو بحساب الوقت منذ تشغيل البرنامج أو بمعرفة 
سلوكيات المستخدم المرتبطة بالوقت وغيرها العديد من المهام البرمجية التي لها علاقة بالوقت. 
وللمؤقت ۲1۳86١‏ خاصيتين مهمتين وهما الخاصية |١٥۲۷‏ وهي التي تحدد خطوة المؤقت 
بالملي ثانية والخاصية الثانية هي 4١٥اطه٣ع‏ وهي التي تفعل أو توقف المؤقت. 

تصميم ساعة في برنامجنا باستخدام اأداö Timer‏ 

بإمكاننا تصميم ساعة رقمية في برنامجنا بالاستفادة من الأداة ٨1۳0‏ أو أداة المؤقت كالتالي: 
ننشئ مشروعا جديدا ونسميه ٤)0۳)‏ ۵٤آوا0‏ › ثم نصغر الفورم إلى مستطيل صغير ونضيف 
له المؤقت 11۳6۲ من صندوق الأدوات ولإن المؤقت يعتبر من lلnكونlت Components‏ 
(المكونات ك٣‏ 0”8م "٠ه‏ هي عبارة عن أدوات في بيئة التطوير ولكنها تعمل من خلف 
الكواليس بدون أن تكون موجودة على الفورم) فلن يظهر فوق الفورم ولكن سيظهر تحت الفورم 
کما في الصورة: 


Timerl 


هل تتذكر الفصل الرابع عندما قمنا بإضافة قائمة ا6" لقد قامت بيئة التطوير بإضافتها إلى نفس 
المكان التي أضافت اليوم فيه المؤقت. قم بإضافة ليبل 61اها وغير الخاصية ۸0517٥‏ من 
"u٥‏ إلى عءاه۴ ثم قم بتكبير الليبل ليملا المكان الفارغ في الفورم» وغير كذلك الخاصية ۲٥×‏ 
واجعلها فارغةء ثم غير خاصية ٣۴×‏ في الفورم إلى "الساعة الرقمية" أما الموقت فقم بتغيير 
الخاصيتين dعاطه"ع‏ إلى عمu٣‏ ۲ والخاصية أج۲۷عnt!ا‏ إلى 1000. 


y‏ ملاحظة: 


إذا أردت تغيير خلفية الفورم» فقط اذهب إلى الخاصية موه" ال" ں٥٣‏ ع)عھمB‏ التابعة 


للفورم ثم اختر منها صورة محددة في جهازك. 


-الآن ننتقل إلى مرحلة الکود» اضغط )c)٣-عاb‏ ںام0 على المؤقت ۲١٣٥۲1‏ ستنتقل مباشرة 
إلى محرر الكود وبالتحديد إلى الحدث )11 التابع للمكون ۳۵۲1 11» هنا سنكتب الكود الذي نريد 
من المؤقت تنفيذه عند كل 1000 ملي ثانية وهو كالتالي: 

Label1.Text = TimeString 


الكود أعلاه يقوم بكتابة الوقت بطريقة (الساعة والدقيقة والثانية) في نص الموجود في الليبل 
1ه. عند تنفيذ البرنامج سنلاحظ أن الليبل يحتوي على الساعة ويتم تغييرها كل 1000 ملي 
ثانية (أي عند كل ثانية). لاحظ الصورة: 


الساحة الرقعية جه 


ل ا ا 


ن تتم كتابة الوقت بخط صغير» كيف نقوم بتكبير النص في داخل #11طهاء ما علينا إلا أن 
نذهب إلى خصائص 11٥5ھ‏ ا تم نغير الخاصیية ۴٥۸٤‏ إلى ام26.25 ٥۳a,‏ ھا لتكبير الخط 
وكذلك نغير الخاصية ۸ ٠۴×۲۸)‏ إلى ١6١٥ع‏ اللا" لتوسيط الكتابة في وسط الليبل. بعد 
التعديلات سيظهر الوقت كالصورة التالية: 


الساعة الرقمية اه 


19:55:20 


طبعاً إذا ردنا إظهار التاريخ بدلاً من الوقت فیمكننا كتابة ھ٥٣‏ بدلا من ہا TimeSt‏ » 
جرب استخدام ۲i1 ne0۴ a¥‏ أو DateStri ng‏ » ماذا ستلاحظ! وما الفرق بین کل کلمة 
راکر ید اة من ای اعت ف لمر رت 021 

استخدام المؤقت لتحديد فترة زمنية 

كما وضحنا سابقا بأننا نستطيع استخدام المؤقت لكل ما له علاقة بالوقت أو التوقيت» فيمكنك حفظ 
ما يقوم المستخدم بطباعته كل عشر دقائق أو تحديد مدة زمنية لإدخال كلمة السر أو إظهار رسالة 
ترحيبية لمدة معلومة عند تشغيل البرنامج الخ. لنأخذ الآن مثال عن برنامج يقوم بطلب كلمة سر 
ولابد على المستخدم أن يقوم بإدخال كلمة السر الصحيحة خلال 15 ثانية (طبعا كلمة السر 
الصحيحة ستكون 123456)» وإذا تأخر المستخدم عن إدخال كلمة السر خلال 15 ثانية فسيغلق 
البرنامج (بالطبع سنحتاج مثل هذه الفكرة عند تصميم البرامج الكبيرة). لنأخذ المثال: 


١-نقوم‏ بإنشاء تطبيق جديد ونسمي4 Timed PassW01d‏ 


۲-قم بتغير الفورم لنفس حجم الفورم الذي أخذناه في المثال السابقء ثم قم بإضافة ليبل )#طاجا 
وصندوق للنص .]٥۴×50×‏ 


۳- أضف مؤقت إلى برنامجك واضبط خاصية ال "te٣۷۵‏ | على 15000 وخlصية Enabled‏ 
على True‏ 


٤‏ كذلك قم بإضافة زر ١۷0ا8‏ واضبط خاصية ×۲6 على 'دخول' 
٥-نقوم‏ بتغییر الخاصیية 0۸) u‏ 8B)مeع۸cc‏ التابعة للفورم ۴0۲٣۳1‏ إلى .But)0۸1‏ 


کے وکام کے ا ٢‏ فل ع آل ف ك كل اتسن خن 15 فة رالا مق 
آسفين بإغلاق البرنامج"'» وكذلك خاصية C12۲‏ 0۲4 Wككه۴‏ التابعة للمكون ۲6۴×80×1 على 
سگرن افررھ کہا کے لفل اال 


قم بكتابة كلمة السر خلال 15 ثاتية وإلا ستقوم اسقين بإغلاق البرتامج 


ملاحظة حول تغيير الخاصية C12۲‏ 5S۷0۲كه۴‏ التابعة لصندوق النص 1€×)50×1 ليتلاءم 
صندوق النص مع كونه صندوق نصي لاستقبال كلمة السر»ء من أجل أن تكون كلمة السر عبارة 
عن نجوم. أما الخاصية ١0٤8ء۸‏ التابعة للفورم فتعني ما هو الزر اللازم الضغط علية 
عند الضغط على E۸6۲‏ ونحن على الفورم. فنحن حددنا 81۷0١1‏ كزر افتراضي فعند ضغط 
المستخدم على E۸۵۲‏ کأنه قام بالضغط على 810۸1 باستخدام الماوس. الآن نقوم بالضغط 
)Ctic-eاDoub‏ على المؤقت ثم نكتب الكود التالي: 


End 


وهذا الكود يقوم بإغلاق البرنامج إذا تأخر المستخدم 15 ثانية. ثم نقوم بlلضخط Double-Click‏ 
على الزر 610١1‏ ونكتب هذا الكود: 
If TextBox1.Text = "123456" Then‏ 
Timer1.Enabled = False‏ 
("شكراً على كتابة كلمة السر الصحيحة")×N64980‏ 
Else‏ 
("كلمة السر خاطئةء حاول مرة أُخرى")×۸N6480‏ 
TextBox1.Text = '"‏ 
End If‏ 
ولشرح الكود أعلاه لابد أن نعلم أن كلمة المرور الصحيحة هي 123456 فإذا أدخل المستخدم هذه 
الكلمة فإن التطبيق سيقوم بإيقاف عمل المؤقت (العمل الذي سيقوم به بعد خمسة عشر ثانية وهو 
إيقاف البرنامج)ء تم سيقوم التطبيق بإظهار رسالة حوار فيها " شكرا على كتابة كلمة السر 
الصحيحة " أما إذا كانت كلمة المرور المدخلة غير فإن التطبيق سيقوم بإظهار رسالة حوار فيها 
كفة افر خا ار ل هة خر ك ف د مون عة الغاطة ا كاه رجه ةة 
من التطبيق أعلاه في المرفق رقم 022. عند تنفيذ البرنامج تذكر أنه لابد من إدخال كلمة السر 
الصحيحة (وهي 123456) خلال خمسة عشر ثانية فقط من تشغيل التطبيق. 


من التعرف على المؤقت ۲1۳6١‏ تستطيع التخيل كم من المهام البرمجية التي قد تستخدم لها 
مؤقت» فيمكنك مثلاً لا حصرأً استخدام المؤقت مع الجمل التكرارية التي تعرفنا على سابقاً في هذا 
الكتاب. أو استخدام المؤقت مع جملة ۴| الشرطية الخ. بالربط بين المؤقت والخصائص والجمل 
التكرارية وكذلك المتغيرات تمتلك الآن قوة في عالم الفيجوال بيسك يمكنك تسخيرها لتصميم العديد 
من البرامج التي قد تحتاجها أو يحتاجها عملائك. 


كيفية إضافة كعم ما5 في مرحلة الكود: 


الترجمة الحرفية لكلمة كعم م5 هي قصاصة لكن المقصود هنا ب كاعم ما١5‏ هي الأكواد 
الموجودة أو الدوال المتوفرة مسبقا ضمن بيئة التطوير. #5 م م1١5‏ توفر لك الوقت فبدلا من 
كتابة كود يقوم بإضافة زر 80١‏ أو ٦۴×80×‏ وقت تتفيذ البرنامج وبدلا من كتابة كود لنسخ 
أو قص نسخ بو اسطة الكليبورد 04۲١‏ م)٤ء‏ ما عليك إلا أن تضغط بالماوس Right-CliCk‏ 
في منطقة الكود (طبعا في المكان المناسب) وتختار من القائمة التي ستظهر Insert Snippe†‏ 
بعد ذلك ستظهر لك قائمة بال ا# م51 المتوفرة كما في هذه الصورة: 

E] Public Class Forml 


Private Sub Forml1 Load (ByVal sender As System.Object, Byv: 


Insert Snippet: 
End Sub E EEE RRR RRR 
End Class LM: Application - Compiling, Resources, and Settings 


Lode Patterns - If, For Each, Try Latch, Property, etc 

Data - LINQ, XML, Designer, ADO.NET 

Fundamentals - Collections, Data Types, File System, Math 
iM Office Development 

Other - Connectivity, Crystal Reports, Security, Workflow 
Smart Devices 

Windows Forms Applications 


i Windows System - Logging, Processes, Registry, Services 
WPF 


تستطيع اختيار المجموعة المناسبة التي تريد منها الكود ثم الانتقال إلى مجموعات فرعية أصغر 
کے شل کو ری فا اا جوع دل اة مخ ار من كر 
الخاصة برقم نسخة الويندوز وكذلك الخاصة باسم المستخدم والذاكرة المؤقتة (الرام) وغيرها من 
الأكواد الهامة التي قد تحتاجها. 


لمعرفة الاختصارات ٤٥م‏ ما٣5‏ عن قرب اذهب إلى القائمة ئأامث٢‏ تم اتر Code Snippets‏ 
İi Manager‏ اضغط C۲1+)+8‏ وسيظهر لك فورم تحتوي على كل الاختصارات كأ٤‌مSnip‏ 
مع شرح مبسط لكل كود متوفر» بالإضافة إلى إمكانية تغيير لغة البرمجة من فيجوال بيسك إلى 


خلاصة الفصل السابع: 


أتحديد خطوة معلومة 


تجنب التكرار اللانهائي 


تعريف المتغير وتعيين 


لإنهاء التكرار 
For... Loop‏ 


قم بالتالي 
اكتب الأمر البرمجي بين ۴0۲ و ×۴" في الجملة التكرارية التالية 
Dim i as Integer‏ 
For i = 1 to 10‏ 
اكتب الأمر البرمجي هنا “ 
Next‏ 
قم بتحديد نقطة البداية والنهاية ثم اكتب كلمة م56 واكتب بعدها مقدار 
الخطوة كما في المثال التالي حيث مقدار الخطوة = 2: 
Dim i as Integer‏ 
For i = 2 to 8 step 2‏ 
أمر برمجي “ 
Next‏ 
تأكد أن الشرط الذي حددته لإنهاء التكرار شرط منطقي وممكن الحدوث. 
نستخدم الكلمة 01۳ لتعريف المتغير وبعد كتابة اسم المتغير وتحديد نوعه 
نستخدم المعامل = لتعيين قيمة المتغير كما في المثال التالي: 
Dim x As Single = 23‏ 
لإنھاء التکرار ۴۵١...100٥P‏ حتی قبل تحقق الشرط نستخدم الكلمة ٤×‏ كما 
فی المثال: 


Dim InpName As String 


التكرار لمدة زمنية 


إدخال ٥م‏ م51 في 


Dim i As Integer 
For i = 1 To 10 
InpName = InputBox("Name?”) 
If InpName = "Trotsky" Then Exit For 
TextBox1.Text = InpName 
Next 
في المثال أعلاه سيتم التوقف عن التكرار عندما يكون الاسم المدخل إلى‎ 
صندوق المدخلات ×50 ۷م٣۱ هو 'K۷کt ہ٣۲" حتی إذا لم يتم التكرار لعشر‎ 
مرات.‎ 
نكتب الشرط البرمجي بين عا"W 00 و م٥10 كما في المثال:‎ 
Dim Query As String = "" 
Do While Query <> "Yes" 
Query = InputBox("Trotsky?") 
If Query = “Yes” Then MsgBox("Hi") 
Loop 


في المثال أعلاه سيقوم البرنامج بتنفيذ الأمر البرمجي حتى يتحقق الشرط وهو 
إدخال الكلمة 5 في تلك الحالة فقط سيظهر لنا صندوق حوار "Hi"‏ 


وكذلك نستطيع استخدام )٣لا 00...100p‏ لتحقيق نفس الغرض. 
نستخدم الأداة ١18۲‏ (المؤقت). 


نضع المؤشر في منطقة الكود في المكان الذي نريد إضافة عم مآً١؟‏ له ثم 


برنامجنا 


التعرف على ال 
Snippets‏ 


نذھب إلى قائمة ٤d٤‏ ونختار منھا ٣€‏ ع5]))عtہ|‏ ثم نختار منھا Insert‏ 
Snippet‏ أو نضغط )1ا ٣†۸يRi‏ في المكان المراد إضافة ال غSnippe‏ 
له في منطقة الکود Insert Snippet رlتخi pû‏ ونبحث Snippet JI je‏ 


المراد ونختاره. 


من قائمة 5ا٥۲‏ نختار Code Snippets Manager‏ أو من الکیبورد 
8+)+ا٣ Ct‏ ونتعرف على ال كأعممآ١؟‏ المتوفرة مع شرح لكل منها. 


الفصل الثامن: مراجعة الأخطاء(و”آووطع() في البرامج المصممة بالفيجوال بيسك 


في الفصول السبعة السابقة قمت بتصميم العديد من التطبيقات أو البرامج وكان لديك الكثير من 
الوقت لتقع في العديد من الأخطاء (طبعاً أكيد ما قصرت في جانب الأخطاء)ء في هذا الفصل 
ستتعرف على كيفية مر اجعة الأخطاء ١4‏ وط6( وعلى كيفية تتفيذ البرنامج للأوامر البرمجية 
وكيفية التعامل مع الأخطاء المتوقعة. وسنتعرف كذلك على أنواع الأخطاء وكيفية معالجتها. 


استكشاف وتصحيح الأخطاء: 


بعد تصميم برنامجك قد تقع في بعض الأخطاء والتي قد لا تستطيع اكتشافها حتى إذا قمت 
بمراجعة بسيطة لكافة الأوامر البرمجية التي كتبتها في محرر الكود وحتى إذا راجعت خصائص 
المكونات التي قد تكون عدلتهاء ما الحل في متل هذه الظروف» فيجوال بيسك 2008 يوفر لك 
NE NE E E E‏ 
تمنعك من الوقوع في الخطأء ولكنها تسهل عليك مراجعة الخطأً وتصحيحه. 


أنواع الأخطاء الثلائة: 


يمكن تقسيم أنواع الأخطاء في الفيجوال بيسك إلى ثلاثة أنواع وهي أخطاء في الأوامر البرمجية 
وتسمی ۸٤۵× ٤۲۲۵۲۶‏ 6۷ء أخطاء وقت تشغيل البرنامج Run-Time Errors‏ والأخطاء 


.اتوآCc‎ ٤٣٣۵۴٣۶ المنطقیة‎ 


٠‏ الأخطاء في الأوامر البرمجية ٤۲۲۵۲۶‏ ×ه٤١5۷‏ وهي الأخطاء التي تحدث في بنية الجمل 
البرمجيةء مثل (الأخطاء المطبعية) الخطاً في كتابة خاصية أو متغير ما (في ال إ١))مم؟)»‏ 
لكن الفيجوال بيسك سوف يقوم بتلوين الخطاً مباشرة ولن يسمح لك بتنفيذ البرنامج إذا لم تقوم 

الأخطاء وقت تشغیل البرنامج ۸1۷۸-11۳٥ ٤۲۲۵۲۶‏ وهي الأخطاء التي تحدث بعد تتفيذ البرنامج 
وفي وقت تشغيله وتسبب للبرنامج التوقف عن العمل» هذه الأخطاء تحدث عندما يحدث أمر غير 
متوقع وقت البرمجة أو قد يكون هناك خطأ في الأوامر من النوع الأول ٣8× ٤۲٣۵۲۶‏ ل؟ يجبر 
هذا الخطاً البرنامج على الثوقت عن العمل فمثلا قد تخطئ في كتابة مسار قاعدة البيانات أو مسار 
صورة سيقوم البرنامج بوضعها في صندوق الصورة» أو قد تأمر البرنامج بفتح الفلوبي إممه)۴ 
وحيث لا يوجد فلوبي في الجهاز. هذه الأخطاء تسمى أخطاء وقت التشغيل أو Ru ١-۲"٥‏ 
۴6 وقد توقف البرنامج عن العمل. 


٠‏ الأخطاء المنطقية ۴۲۲۵۲۶ ءأوما وهي أخطاء يكون سببها المبرمج وهذه الأخطاء قد تتسبب 
بظهور نتيجة خاطئة بسبب أخطاء في البرمجةء فمثلا قد يحدث خطأً في حفظ إجمالي الفاتورة لإن 
المبرمج لم يتنبه إلى مسألة الخصم» ومعظم عمليات معالجة الأخطاء تختص بهذا النوع من 
الأخطاء وطرق معالجتها. 


إذا واجهتك أخطاء من النوع الأول فيمكنك حلها بالاستعانة بملفات التعليمات المرفقة مع لغة 
البرمجة الفيجوال بيسك )00٤1 8١٤3٤10 ١(‏ لتعرف عن الخطأ الذي حدث معك وعن 
الخصائص وعن الكائنات وكذلك الطرق كل١0٣†“‏ التي استخدمتها وهل تم التعامل مع واحده 
منها بشكل خاطئ. خلال عملية كتابة الكود في محرر الكود وإذا حدث أية خطأ يقوم محرر الكود 
بإضافة خط متعر ج تحت الكود الخاطئ» تستطيع معرفة معلومات عن الخطاً بواسطة تحريك 
الماوس فوق مكان الخطأ. في الصورة التالية ستلاحظ كيف يقوم الفيجوال بيسك بتحديد الخطأً 
المطبعي عند كتابة ٥4#‏ فبالخطاً كتبت 052# وبعد أخذ الماوس فوق الكلمة التي تحتها خط 
انظن مادا تظغر من اة نا: 


E] Fublicz Class Form1l 


Private Sub Forml1 Load (ByVal 
Select Case 
çaag 1 


End Name 'Csae' is not declared. 


End Sub 
End Class 


فالرسالة في المستطيل تو اللون الاصقرن وتقول Name “Csae” ¡is not deا)a rd‏ (وتعني 
الكلمة C586‏ غير معرفة). 


ملاحظة: 


اللون الأخضر تحت الكلمة يعني تحذير» اللون الأحمر يعني أن هناك خطأ في الأمر 
البرمجي ٤۲۲٥١۲‏ ×ها”ل؟» اللون الأزرق يعني أن المترجم ال )آم0 حدد 
الخطأء أما اللون الأرجواني عام۲ نا۴ فيعني أن هناك خطأ آخر. 


إذا صادفت خطاً وقت التشغیل ۸-۲1٣٥ ٤۲۲۵۲‏ غالبا ما يكون هذا الخطاً بسبب خطأً مطبعي 
في ال وا )مم5 » إذا كانت الطباعة صحيحة قد يحتاج الخطأ لتعمق أكثر في الأسطر البرمجية 
التي كتبتها في برنامجك. قد نحتاج لعمل أو لبذل جهد أكبر من هذا بواسطة تجميع الكود على 
شكل مجموعات ثم تقرير الخطأً من مجموعة معينةء سنتعرف على هذه الطريقة في الفصل التاسع 
من هذا الكتاب. 


تحدید الأخطاء المنطقیة ٤٣٥٣۶‏ اوا 


الأخطاء المنطقية في البرنامج تعتبر من أصعب الأخطاء عند التصحيح» وذلك بسبب طبيعتها 
المنطقية حيث تستلزم المراجعة المنطقية لكل عناصر الكود» تذكر بأن الفيجوال بيسك ليس السبب 
في مثل هذه الأخطاء ولكن الخطأً من عند المبرمج. لنأخذ هذا المثال: 
Dim Age As Single‏ 
If Age > 13 And Age < 20 Then‏ 


"أنت في عمر المراهقة" = ۲٥×‏ .e×†80×2آ‏ 


Else 
1 e×)80×2. 1٥×) = "لست في عمر المراهقة"‎ 


End If 


عند مراجعة الكود أعلاه وبما أننا نعرف أن عمر المراهقة يكون من عمر 13 حتى 20 سنة من 
عمر الشخص» فإن الجملتين أعلاه صحيحتين لكن ماذا إذا أدخلنا العمر 13 أي رسالة ستظهر لناء 
بالطبع ستظهر لنا الرسالة التي تقول الست في عمر المراهقة" مع إن العمر 13 هو من عمر 
المراهقة» طيب! ما هي المشكلة أو الخطأء الخطاً هنا أنه لا بد من تحديد العمر بالإشارة >= أكبر 
أو تساوي 13 وليس بالإشارة > أكبر من 13 فقط انظر تفاهة هذا الخطأء كن على ثقة أن معظم 
الأخطاء البرمجية تأتي من الأخطاء المنطقية ومن جمل مثل هذه (معظم الأخطاء) لكن ليس من 
السهولة بمكان كشف الأخطاء المنطقية مثل هذه المرة. 


مراجعة الأخطاء: 

من ضمن الطرق المتاحة لمعرفة الخطأً المنطقي هي التعرف على الكود أو تنفيذ الكود سطر 

سطر» أي يقوم البرنامج بتنفيذ السطر الأول من البرنامج ثم الذي يليه وإذا حدث الخطأً عرفنا 

السطر الذي تسبب بالخطأ. 

مثال على كيفية مراجعة الأخطاء في برنامج ما 

لنأخذ الآن مثالا فيه الكود السابق» الكود الخاص بالعمر» نفتح الفيجوال 2008 ثم ننشئ مشروع 
جدید ونسمیه اعا واطعل ثم نضیف اٹنین زر 810۸ واثنین صنادیق للنص ٦٥×50×‏ 
(لمعرف كيفية التعديل على الخصائص وكيفية إضافة المكونات قم بمراجعة الدروس السابقة أو 
الصفحات السابقة من هذا الكتاب) ونعدل الخصائص ليكون الفورم بالشكل التالي: 


نضغط )٤1ا‏ ٣-عاطںام0‏ على زر "خرو ج" ونكتب كود إغلاق البرنامج وهو 
End‏ 
ونضغط على الزر 'قارن العمر' ونكتب الكود التالي فيه: 
Dim Age As Single = TextBox1.Text‏ 
If Age > 13 And Age < 20 Then‏ 
"أنت في عمر المراهقة" = T7ex×†80×2. 1٥×‏ 
Else‏ 
"لست في عمر المراهقة" = 1e×)80×2. 1٥×)‏ 
End If‏ 
لنا رسالة ×80 #وهءء" تقول لنا الست في عمر المراهقة" أما إذا كتبنا العمر 15 فتظهر رسالة 
تقول "أنت في عمر المراهقة"» طيب الآن ماذا إذا أدخلنا العمر 13 ستظهر لنا رسالة تقول 'لست 
في عمر المراهقة" مع إن العمر 13 من عمر المراهقة. الآن دعونا نضيف نقطة توقف أو ما 
يمى ب Break Poi"‏ إلى منطقة الكود إلى الکود = Dim Age As Single‏ 
eX‏ ا 1e×80x>1.‏ كما في هذه الصورة: 


qe As Single = TegtBOE1. Test 
IF Age > 13 And Age #* 20 Then 
TextBoz2 .Text = "ãةخ.lزفلا "أتت قي عفر‎ 
Else 


TeztBog2 . Text = "aiۃخnlرږjمفلا "لست قي عمر‎ 
End If 


کل ما قمنا به هو أننا ضغطنا 


الف تة قاو لجال 
نشك باضاقة النقطة الحم 


نقوم الآن بتشغيل البرنامج ونكتب العمر 16 ثم نضغط الزر 'قارن العمر" نلاحظ أن البرنامج ينقلنا 
إلى محرر الكود ليبين لنا أن هناك نقطة توقف عند الكود المراد تنفيذه(أما إذا كان الكود عند نقطة 
التوقف ”اه۴ اهما لا علاقة له بالعملية التي يقوم بها البرنامج فلن يتوقف(إنما يتوقف 
البرنامج فقط عند نقطة التوقف إذا كانت العملية المناطه بالبرنامج لها علاقة بالكود المحجوز في 
نقطة التوقف))» الآن نحن أما محرر الكود بل إن البرنامج يحجز الكود عند نقطة التوقف باللون 
الأصفر ليبين لنا بأن هذا الكود المعني بتنفيذ العملية التي طلبتها من البرنامج» لاحظ الصورة: 
Dim‏ 9 
If Age > 13 And Age < 20 Then‏ | 
"تت قي عفر اadlږljخځi"‏ = TextEox2. Text‏ 
Else‏ 


TeztEox2 . Text = "iخlpjږadlا "لست قي عفر‎ 
End If 


لاحظ السهم الأصفر وكذلك ا 
الكود المظلل بالأصفر 


End Class 


الآن بيئة التطوير متوقفة عن تنفيذ الأمر البرمجي» ولتنفيذ الأمر نذهب إلى الأدوات أعلى الفورم 
انظر الصورة: 
ject Build Debug Tools Test Window Help‏ 


N Eee EEE Ea E 


stwshost, < Thread: [2728] Main Th 


1b [Design Forml.vb 


| 
lı 


والأهم هو هذا الزر 
Step mio‏ 


من داخل الدائرة الحمراء في الصورة أعلاه نختار الزر |١0١‏ م56 ليقوم الفيجوال بيسك بتنفيذ 
الأمر البرمجي وبسبب أن الكود مترابط مع بعضة البعض سينتقل اللون الأصفر إلى السطر التالي 
ويتوقف» نختار |٣٤0‏ م56 مرة ثانيةء سينتقل اللون الأصفر إلى السطر الذي يليهء مع ملاحظة 
أن السطر المظلل باللون الأصفر لا يقوم البرنامج بتنفيذه إلا بعد الضغط على |١0١‏ ص56» نقوم 
بالضغط على |٣٠‏ مه5 مرة ثالثةء الآن وبما أن العمر الذي وضعناه في صندوق النص هو 
6 أي أنه يتوافق مع الشرط الأول في جملة ۴| الشرطيةء لذلك لن يقوم البرنامج بالتحقق من 
الشرط الثاني وإنما سيقوم بالانتقال مباشرة إلى ۴ا ٣١‏ ۴. وإذا ضغطنا |٣٤٠‏ م56 للمرة الرابعة 
نلاحظ أن اللون الأصفر ينتقل إلى طا ٤٣۵‏ وعند الضغط على |١٤٠١‏ م56 للمرة الأخيرة 
نلاحظ أن البرنامج يقوم بإظهار الرسالة "أنت في عمر المراهقة" في صندوق النص المحدد لذلك. 
لعلنا الآن قد عرفنا كيف يتسلسل التطبيق تطبيق الكود البرمجي في برامجنا. دعونا نعيد العملية 
السابقة مرة أخرى وبعد وضع العمر 16 والضغط على الزر 'قارن العمر" وعند توقف اللون 
الأصفر فوق الكود: 

Dim Age As Single = TextBox1. Text 


نذهب الماوس إلى فوق المتغير ه۸ نشاهد الكتابة التالية تحت مؤشر الماوس (0.0| #ع۸) لماذا 
وماذا تعني هذه القيمةء للتوضيح مادمت في وضع ال ٣4‏ أووںطه0 إذا وضعت الماوس فوق أي 
متغير من المتغيرات على طول الكود فسيكتب لك محرر الكود كم هي قيمة المتغير في تلك 
اللحظة» وقد وضع القيمة 0.0 للمتغير ۸٥‏ لإن المتغير حتى هذه اللحظة لم تتم تعبئته بالقيمة 
الموجودة في صندوق النص أ×۴٥۲۴×80×1.1‏ » هذه الميزة ستستفيد منها في البرامج العملاقة 
والمعقدة» لنعرف متى يتم تعبئة المتغير بالقيمة المحددة له. 

ونلاحظ أننا بعد الضغط على |٣٠١‏ م56 للمرة الثانية ثم نضع الماوس فوق المتغير ۸٥‏ نلاحظ 
ظهور الكتابة (16.0| )۸٥‏ فوق الماوس لتعلمنا بأنه قد تمت تعبئة المتغير ه۸ بالقيمة 16 
عند الانتقال من السطر الأول في الكود إلى الذي يليه. 


بالاستمرار بالضغط على |١٠١‏ م5 نلاحظ انتقال اللون الأصفر الذي فوق الكود من سطر إلى 
آخر لنعرف أي سطر من سطور الكود يتم تنفيذه. 

لنذهب أبعد مع مراجعة الأخطاء أو مع ال ٣١‏ أووطه0 فمن قائمة بيئة التطوير نختار القائمة 
المنسدلة وuاطع0‏ ثم نختار منها W1 ١00۷WS‏ ثم نختار منها ١٥لا‏ لنلاحظ ظهور نافذة طافية 
بالأسفل ل كهالا۸ هذه النافذة الصغيرة تظهر لنا العديد من المعلومات التي قد نستفيد منها في 
مراجعة الكود من ضمن هذه المعلومات قيمة المتغير عند كل سطر من سطور الكود وكذلك جميع 
المكونات (التي تتغير قيمتها في هذه اللحظة) والموجودة على الفورم دعونا نلاحظ هذه الصورة 
لنافذة 0۶ا ں‌A:‏ 


Autos I x 

Name Value Type 
@ Age 16.0 single 

Hl Eê TextBox1 {Text = "16} System. M 
E TextBox 1, Text i Q, > String 

3 Fj TextBox2 {Text = "} System. 
E TextBox2, Text ۰ Q, > String 

HAH Ge {X = 54۲ = 16 Button = Left {1048576}} System,E 

HA @ sender {Text = "قار العھر"‎ Object 


نلاحظ في الصورة أعلاه المتغير ۸٥‏ وقيمته عند الانتقال من سطر إلى آخر وكذلك قيمة 
المكونات المختلفة على الفورم متل مربعات النص ١۴×80×2‏ ,80×1)×€] وحتى بقية 
المكونات مثل 5۵۸0٥۲‏ ,€ ومع الاستمرار بالضغط على |١١‏ م56 سنلاحظ تغير قيمة كل 
عنصر من المكونات أعلاه. 

لنجرب فتح البرنامج ومحاولة معالجة الأخطاء بوضع قيمة العمر 13 ثم ملاحظة النتيجة التي 
تظهر في 1e×50×2‏ وهي "لست في عمر المراهقة" ثم لنضع العمر 20 نلاحظ نفس النتيجة. 
نستنتج بأن هناك خطأً ما في بنية البرنامج وبالتحديد في تركيب الجملة الشرطية حيث أن الكود: 
If Age > 13 And Age < 20 Then‏ 


If Age >= 13 And Age < 20 Then 


ولذلك لا بد لك من تعديل الكود المذكور أعلاه (وللعلم توجد نسخة من التطبيق أعلاه في المرفق 
رقم 023 لكن لابد عليك من تعديل الكود بعد تطبيق درس مراجعة الأخطاء عليه). 


Watch Widow مIدختساب متابعة المتغيرات‎ 


لاحظنا في المثال أعلاه أهمية استخدام الأداة 65ا۸ المتوفرة ضمن قائمة ولا ط٥0‏ في بيئة 
التطوير وكيف أن هذه الأداة مفيدة جدا وهامة في متابعة قيم المتغيرات على الفورم وقت الانتقال 
من سطر إلى آخر على الكود فأداة 5Sها‏ نا۸ تظهر لنا جميع القيم للمتغيرات والمكونات التي تغيرت 
عند تطبيق سطر معين في الكود (وهو السطر المظلل باللون الأصفر). عندما يقوم البرنامج بتنفيذ 
أكواد لا علاقة لها بالمتغيرات فإن هذه القيم لا تظهر في قائمة 5٥نا‏ لذلك فنحتاج إلى أداة تظهر 
لنا هذه القيم» إنها أداة a٤۸ W1 ٣00۷‏ تقوم هذه الأداة بمتابعة القيم والمتغيرات الهامة في 
الكود مادمت في مرحلة مراجعة الأخطاء ال عله( ١١‏ أوواطع0 في فيجوال بيسك 6 كان 
بإمكاننا فتح نافذة W2٤۸ W۷1۸00۷W‏ واحدة أما في فيجوال 2008 فبإمكاننا فتح أربع نوافذ 
مرقمة 1» 2ء 3» 4. لإضافة W2٤۸ W10۷‏ لا بد أن يكون التطبيق في مرحلة ال 
يebuggin‏ نختار Debug‏ ثم wsەل Win‏ ثم Wat‏ تم نختار واحدة من الأربع. ونستطيع 
إضافة تعبير معين لها لمر اقبته فمثلاً يمكننا إضافة التعبير 13 =< هع لتقوم نافذة ال hعغWa‏ 
WİN 0W‏ بمر اقبة المتغیر 13 =< .۸ٍ€٥‏ 


المرفقات التي نقوم بالتطبيق عليها في هذا الباب حتى الآن موجودة بالمرفق رقم 023. 


بعد تشغيل التطبيق في المرفقات رقم 3 والتأکد من أن ال Brake Pەا ٤‏ عند السطر : 


ext‏ ا ٥1" Ae AS Sinواع = rextBox<1.‏ نقوم بتنفیذ البرنامج بالضغط علی ۴5 ثم نقوم 
بكتابة الرقم 13 في الفورم التي ستظهر ثم نضغط الزر 'قارن العمر' وحين يتوقف الفيجوال 
بيسك 2008 عند نقطة التوقف ال ٤٣ا٥۴‏ ٥kمBr‏ نذھب إلى منطقة الکود ثم نختار |٣٤٥‏ معSt‏ 
لنقوم بتظليل المتغير المراد مراقبته ثم الضغط )ء1ا٣-۸عاR‏ على المتغير ثم اختيار كك۸ 
Wat‏ ستقوم بيئة التطوير مباشرة بإضافة المتغير إلى ال 0۷ل Wat c٣ W1‏ فمتلاً نظلل 
المتغیر ۸۵ ونختار Add Watc٣‏ وکذلك ٦۵۴×80×2‏ وبعد إضافتھم نختار tp |٣٤٥‏ أو 
نضغط على ۴8 لنقوم بنفس العمل ماذا نلاحظ سنلاحظ بأن بيئة التطوير قد قامت بتغيير القيمة 


للمتغير ه۸ إلى 13 (التي كتبناها في صندوق النص في الفورم) وكذلك لونت القيمة باللون 
الأحمر لننتبه بأن هذه القيمة تغيرت في هذه اللحظات. نستطيع إضافة أي بند إلى عاج 
Window‏ بعمل Rih t-Ctic)‏ على البند ثم اختیار W2‏ 4لA.‏ ویمکننا حذف بنود ال 
Window Watch‏ باختیار آحد البنود ثم الضغط على ع†ع)اع0. 


عناصر التكبير أو ١۶٣٥1z)امuك۷i‏ 


استخدمنا سابقاً العديد من الوسائل التي تعيننا على معرفة قيمة المتغيرات ومتابعتها على طول 
الكود لمراجعة الأخطاء التي قد تكون في البرنامج وكذلك لمعرفة كيف تتم تعبئة المتغيرات بقيمها 
وكيف تتعامل مع بعضها في منطقة الكود. aT‏ ا 
216 (ستلاحظ ركاكة ترجمة بعض المصطلحات للعديد من الأسباب لذلك فقد تم إرفاق 
الكلمة الإنجليزية الأصلية حتى لا يحدث لبس) ونستخدم عناصر التكبير لأسباب معينة ففي السابق 
کنا نستخدم Windows Wa‏ و Aut0s‏ لمتابعة قیم المتغیرات ولکن ماذا إذا کان لدینا متغیر 
يعرض لنا سيل من البيانات مثل المتغير الذي يعرض لنا قيمة معينة من قاعدة بيانات أو يعرض 
لنا نص معين من صفحة في الإنترنت عندئذ لابد علينا من استخدام عناصر التكبير أو 
6اهuك‏ وتسمى عناصر التكبير بسبب الإيقونة التابعة لها وهي عبارة عن عدسة تكبير. 
لدينا ثلاثة أنواع من eنlاصر‏ llتكبıر XML Visualizer ş Text Visualizer‏ ڪ HTML‏ 
suai‏ ويبين كل نوع منها نوع البيانات المخرجة هل هي †ځ×eڵ .HTML yİ XML yİ‏ 


لنأخذ مثال على عناصر التكبير حيث يفترض بنا أننا الآن فاتحين المثال اكع وuطعل‏ الموجود 

ضمن المرفقات برقم والذي استخدمناه في التمارين السابقة. ويفترض الآن بأننا في مرحلة ال 
hebugging‏ وفاتحين ال Window Watch‏ وخلال عملیة الضغط علی |٣٤٥١‏ م56 نلاحظ 
تون عدسة صغيرة في داخل ال Window Wa‏ في عمود ۷a٥‏ وبجانبھا سھم صغیر 
كما في الصورة: 


Watch 1 eH Xx 
Rame Yalue Type 
0 Age 2 Integer 


I ¥‏ د د 


¥ Tek Yisualizer 
XML visualizer 


: : SEE HTL Wisualizer 
E aiia: Fj Watch 1 EE Irrrmeeli a fê iPr 


(الصورة من كتاب المؤلف لإن العدسة لم تتكون عندي لكني وجدت هذه العدسة في منطقة الكود 
وبجانب المتغيرات أو ال ×۲۴×80 فبعد وضع الماوس فوق كلمة ۲6۴×80×2 في الكود 
ظهرت العدسة وتم اختيار ٣1216ء۷‏ ×1۴ لتظهر لنا فورم صغير فيه قيمة النص الموجود 
بداخل صندوق النص وعند اختيار 8)17€۲ ل۷151 × ظهرت نافذة صغيرة تظهر لنا النلص 
الموجود في صندوق النص 1٥۴×60×2‏ مع وصلة لملف ۸× في ملف ال م1۴۳ فيه 
تفاصيل النص الموجود في صندوق النص ولكن بصيغة ا۸×). 

Immediate Window ةعيرسdا النافذة‎ 

(ملاحظة للمرة الثانية بأن ترجمة المصطلحات قد لا تكون صحيحة %100 لذلك تم إرفاق 
المصطلح الأصلي) لحد الآن تم استخدام العديد من الأدوات المتوفرة ضمن بيئة التطوير لمراجعة 
قيم المتغيرات والعديد من العناصر ضمن الكود لكننا هنا بصدد أداة تختلف بعض الشيء عن 
الأدوات السابقة وتعتمد على الأدوات السابقة اعتماداً كلياً وبخاصة JIئ.— Window Watch‏ 
ونستخدم النافذة السريعة أو W1 40W‏ مهال ع""| لإدخال قيم معينة على المتغيرات أو في 
صناديق النص أو في أي عنصر ضمن الكود بدون التأثير المباشر على التطبيق أو البرنامج الذي 
تم تصميمه فمثلا في المثال اكع ١اطع‏ يمكننا تعيين قيمة للمتغير ه۸ وكذلك كتابة قيمة 
معينة في صندوق النص ٠٠۴×80×2‏ وملاحظة أثار ذلك في ۷1٣40۷ W۷٤۸‏ بدون التأثير 
على البرنامج. 


لنأخذ المثال السابق وفي مرحلة ال ٣١‏ آووں ط0 نذھب في بیئة التطویر إلى القائمة وu 0٥e‏ ثم 
û Windows‏ ediateصص!‏ سنلاحظ ظهور نافذة جديدة تمJ Immediate Wi1d0W‏ 
رديفة وملاصقة للنافذة Wİ "40W W2‏ كما في الصورة: 


Immediate Window E 


4 
j] Watch 1 | Immediate Window 


في نافذة ال W1 ¬40W‏ diateلعمصصا|‏ قم بتعيين قيمة للمتغير ۸٥‏ من خلال كتابة 17 = A٥‏ 
ثم الضغط على E١6١‏ ثم قم بفتح النافذة الظاهرة في خانة W٤۸1‏ ماذا تلاحظء ستلاحظ 
ظهور قيمة المتغير ۸4٥‏ فيها ب 17 . انظر الصورة (من الكتاب الأصلي): 


Watch 1 eH XxX 
Rame Yalue Type 
ا‎ 
Î TextBox2. Text "uu're 2ã great age!" 4 > Skring 
E8 ازا‎ 7 | Wwateh 1 1 Ti Fri#ê CÎ tê IF 


(بصراحة عندي لم تظهر الرسالة التي يشير إليها الموؤلف فمن وجد الحل لهذه المعضلة 
فليراسلني بالإيميل وليوضح الحل في منتدى فيجوال بيسك العرب). 

الانتقال من النافذة السريعة wس0ل¬ W1‏ mmediateاإلى‏ نافذة الأوامر Command‏ 
:Window‏ 

إذا أردنا الانتقال من النافذة السريعة إلى نافذة الأوامر نكتب الأمر C>‏ في النافذة السريعة أو 
الأمر >ل١‏ ۴" "| في نافذة الأوامر. 


ونستفيد من نافذة الأوامر في العديد من المهام والتي هي التعامل مع الفيجوال بيسك بواسطة سطر 
الأوامر (من يتذكر نظام ال )00S‏ فمثلا كتابة الأمر )۷6۸1ه۴]6.5 يقوم بحفظ التطبيق الحالي 


الذي نعمل عليهء وللعلم فإن نافذة الأوامر تحتوي على تعبئة تلقائية عاع)ام ۸0-٥0"‏ فبمجرد 
كتابة بعض أحرف من الأمر البرمجي تقوم هذه النافذة بعرض قائمة من المقترحات لاختيار أحدها 
إذا أردنا تسهيل الأمر أو إذا نسينا ال وہ تا)اممS.‏ 


التطبيق الذي قمنا بالعمل علية في هذا الباب موجود في المرفقات برقم 023. 


خطوة للأمام (إلغاء نقاط التوقف) ءا ا0مBreak:‏ 


خلال هذا الفصل تعرفنا على كيفية إضافة نقاط التوقف ءخ١0م8۲۴4۸‏ وكيفية الاستفادة منها 
على طول الكود وهنا سنتعرف على كيفية إزالتها من الكود. 


نذهب إلى محرر الكود و بالماوس نقوم بالنقر فوق الدائرة الحمراء والتي تعني نقطة توقف فتزول 
هذه النقطة لتنته من تلك المنطقة نقطة التوقف. وإذا كان لديك العديد من نقاط التوقف فى منطقة 


الكود فمن الصعب استخدام هذا الطريقة ويفضل الذهاب إلى قائمة وط0 واختيار ع†eامD‏ 
A) Breakpoints‏ أو بالضغط علی ۸1۴+۴9؟+|٣ا‏ ليتم إلغاء كافة نقاط التوقف. 


خلاصة الفصل الثامن: 
من اجل أن 


إظهار صندوق أدوات 


Breakpoint 


تنفيذ سطر برمجي واحد 


ضمن الكود 


قم بالتالي 


Debug lian, Toolbars اتر‎ Vi€W من قائمة‎ 


في محرر الكود وعند الجملة أو الأمر الذي تريد التوقف عنده قم بالنقر على 
الماوس في الهامش المقابل للجملة من اليسارء وعند تنفيذ البرنامج سيقوم 


البرنامج بالتوقف عند وصولة إلى تلك الجملة. 


ف ی ی و 


معرفة قيمة متغير ما 
وقت معين خلال تشغيل 
البرنامج 

استخدام نافذة ال 
65 لمعرفة قيمة 
إضافة قيمة متغير أو 
خاصية معين/ه إلى ال 
Watch Window‏ 


Watch رlۈ¡إ‎ 
Window 


إظهار بيانات المتغيرات 
وغیرها بن وعية H1۲1‏ 
و XML‏ 
فتح نافذة 


Immediate 
Window 


كتابة أمر من خلال 
نافذة الأوامر 


التنقل بين 
Immediate‏ 


الذهاب بالماوس إلى منطقة الكود ووضع الماوس فوق المتغير المراد معرفة 


قيمته حينها ستقوم بيئة التطوير بإظهار قيمته. 


في مرحلة تنفیذ البرنامج ال ٣١‏ اووuطع0‏ نذھب إلى قائمة وٍuطع٥0‏ ثم 
«Autos pۃî Windows‏ 


في مرحلة تنفيذ البرنامج ال ١١1وو‏ اطع( نختار القيمة المرادة في محرر 
الکود .Add Watch pî Right-Click şü‏ 


في مرحلة تنفیذ البرنامج ال ١‏ آووںطع0 انقر قائمة وuطع0‏ ثم 


WN 86‏ ثم Watch‏ ثم نختر واحدة من الأربع. 


Right-Click ۃî‎ Watch pû Visualizer رتخl‎ Autos —| ةذفاi في‎ 


Immediate ۃî‎ Windows رlتخi‎ Debug ةnئأl من‎ 


في نافذة الأوامر نكتب الأمر الذي نريد فمثلا الأمر ))۷6۵۸1ه6۴.5|آ۴ يقوم 


بحفظ التطبيق الذي نعمل عليه. 


في W1 ¬40W‏ ediateصص|‏ نکتب >۳ ونضغط على E۸6۲‏ وفي 


.Ent€َ ونضغط على‎ imn med> نكتب‎ Command Window gy Window 


Command 
Window 
إلغاء نقط التوقف في محرر الأكواد نضغط فوق الدائرة الحمراء أو من قائمة وط0 نختار‎ 


Ctrl+Shift+F9 JJe طخضزi‎ jİ Delete All Breakpoints Breakpoints 


الفصل التاسع صيد الأخطاء باستخدام البناء الهيكلي Structure Error Handling‏ 


في الفصل الثامن تعرفنا على كيفية مراجعة الكود وكيفية تعامل بيته التطوير مع المتغيرات 
والخصائص خلال مرحلة تنفيذ البرنامج وكذلك على وضع نقاط التوقف ومراقبة كيفية التعامل 
معها من قبل البرنامج»ء في هذا الفصل سوف نتعرف على كيفية التعامل مع الأخطاء بطريقة 
سلسة ومنظمة وهيكلية ولنبداً معا: 


Try ... Catch Statement ةlnجئl صيد الأخطاء بواسطة‎ 


إذا حدث أية خطأً صغير وقت البرمجة قد يؤثر بشكل كبير جدأً على مرحلة تنفيذ البرنامج فملا 
إذا لم يستطيع البرنامج فتح ملف معين قد خدد له سلفا فإنه قد ينهار ويقوم الويندوز بإغلاقه. ففشل 
البرنامج في فتح ملف أو في تحميل صورة أو في التعامل مع أرقام أو نصوص أو مدخلات قد 
يخطئ المستخدم فيها مثل الطلب من البرنامج أن يقسم ويكون مقام القسمة صفر» هذه الأخطاء 
وغيرها والتي تعتبر تافهة في تنظرنا نحن البشر قد تكون معضلة وداهية في نظر الكمبيوتر 
المسكين وذلك لإن الكمبيوتر لا يفكر وإنما يقوم بما أمر به فقط من قبل المبرمج وحدوث مثل تلك 
الانهيارات للبرنامج يعود السبب فيها للمبرمج الذي لم يحدد للبرنامج ماذا يفعل إذا حدث له خطاً 
ا 


رل هن كا حع أ اعا اخظاء اة ار نامج لر نالعال مها وكا أن تكب نة 
اة تد فا ات ف ا ك هة ماقي ار ما فن ف تخ هة اف 
كل إجراء يتوقع حدوث خطأ فيه بحسب الحاجة. 


متى نستخدم جمَل صيد الأخطاء: 

باختصار يجب علينا وضع جُمّل صيد الأخطاء في كل جملة برمجية متوقع أن يحدث فيها خطأً ما 
وبشكل عام تكون هذه الأخطاء بسبب مؤثرات خارجية من خارج البرنامج وليس من داخله فمثلا 
الخطاً الذي قد يوجد إذا لم يكن هناك اتصال بالانترنت أو بسبب تعطل الشبكة الداخلية أو بسبب 
عدم وجود سي دي أو بسبب عدم توصيل الطابعة كل هذه الأخطاء قد تسبب لنا العديد من المشاكل 
إذا لم نتحاشاها بجُمّل صيد الأخطاء. 


وباستخدام الجملة ۲۲۷...0۵٤۸‏ نستطيع تصيد الأخطاء حيث يتم وضع الكلمة 1٣‏ قبل الجملة 
التي نتوقع حدوث خطأ بسببها ووضع ٤۸‏ مباشرة مع قائمة بالأوامر التي يجب على البرنامج 
القيام بها إذا حدث الخطأً. وبإمكاننا استخدام العديد من الكلمات الوسيطة مع ۲۲۷ و C2٣۸‏ مثل 
Catch When‏ و Finally‏ و ۷٣آ EX¡t‏ والآن لننظر إلى الصياغة العامة في جملة 
r...Catch‏ كالتالي: 


Try 

الجملة البرمجية التي قد يحدث بسببها خطأً 

Catch 

الجملة التي نريد تنفيذها حال حدوث الخطأً 

(اختیاریه) y))ھہF۴i‏ 

جملة أخيرة نريد تنفيذها سواء جدث الخطا أم لم يحدث 
End Try‏ 


الآن دعونا نتخيل الجمل البرمجية فبعد كلمة 1٣۷‏ نضع الجملة البرمجية التي نحن متخوفين من 
أنها قد تحدث خطأ ما في البرنامج مثل جملة فتح ملف في مسار ما قد لا يوجد هذا المسار أو قد 
يكون الملف معطوباً أو غيرها من الأخطاءء ونضع الجملة التي نريد تنفيذها إذا حدث خطأاً بعد 
كلمة C2٤۸‏ وفي الأخير نضع الجملة التي نريد فيها إنها عملية فتح الملف سواءاً فتح الملف أو 
لم يفتح بعد الكلمة را)ه١ا۴.‏ 


مثال تطبيقي على التعامل مع المسارات والملفات: 
لنأخذ الآن مثال فيه احتمال على حدوث خطأا ما هذا المثال هو التعامل مع الملفات والمسارات 


حيث سنصمم فورم فيه زر ١0]لا8‏ ومربع للصورة عند الضغط على الزر سيذهب البرنامج إلى 
مسار ما وسيقوم بتحميل صورة معينة في مربع الصورة إذا وجدها وإذا لم يجدها فسيحدث الخطأ. 


المثال موجود في المرفق رقم 024 نفتح الملف ونأخذ الصورة التي باسم ۴ileOpen.D۸۲‏ 
ونضعها في المسار ٠:0‏ ثم نقوم بفتح البرنامج بواسطة بيئة التطوير ونذهب إلى محرر الأكواد 
لنجد الكود : 

PictureBox1.lImage = _ 


System. Drawing.Bitmap.FromFile("d:\fileopen.bmp") 


وهذا الكود يجعل البرنامج يقوم بالذهاب إلى القرص ٠:‏ ليبحث عن الملف الصورة 

mp‏ ط.enمpدeااf‏ ويضعها في مربع الصورة ۲۴80×1 ۷ا۴1 وبما أننا قد وضعنا الصورة في 
القرص 0 نقوم بتشغیل البرنامج وضغط الزر ليقوم البرنامج بوضع الصورة في مربع الصورة 
كما في الصورة التالية: 

r ES 


هذا اليرتامج سيقوم باليحث فى المسار 0 
عن الملف اط .٣عم‏ 20ا۴ ليقوم بوضحة قى 
صتدوق الصورة بالأسفل وإذا ام يجده سيحدث 
خطاً دعونا تشاهد هذا الخطاً. 


الآن وبعد أن رأينا كيف قام البرنامج بتحميل الصورة من المسار المحدد نذهب إلى القرص ٠:2‏ 
ونلغي الصورة م۳ ١.5‏ ۴|608 ونعيد تشغيل البرنامج ونضغط على الزر والآن يحدث الخطأً 
كما في الصورة (لأن البرنامج لم يجد الصورة في المسار المحدد في الكود): 


> 3 | Solut 


E. 
3 


Public Class Forml1 


Frivate Sub Button1l Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1. Clic) 


ا 
| 
1 
ا 
FileNotEoundException was unhandled * |‏ ا End Sub E‏ 


End Class 


di\fileopen.bmp 


When using relative paths, make sure the current directory is correct. ٤ 


ep for this ep 2 |‏ ننا Get‏ | أ 


Search for more Help Online...‏ َ ا 


1 - 
| View Detail... 5o 
| Copy exception detail to the clipboard 


ر 


أما إذا كان البرنامج يعمل بدون الفيجوال بيسك 2008 فسيكون الخطأً كما في الصورة التالية: 


7 


_| Bl Disc Drive Error EES ENES 


TE 


هذا البرتامج سيقوم بالبحت قي المسار 0 

FileOpen. bmb فloJl ie‏ ايقوم بهوضعة قى أ 
صندوق الصورة بالاسقل واا لم بجدة سسحدت 
خطاً دعوتا نشاهد هتا الخطاً. 3 


SEER E EES EES EEE SESE SERSAR REESE 


Dist Drive 


Unhandled exception has occurred in your application. If you dick 
Continue, the application will ignore this error and attempt ta continue, 
If you dick Quit, the application will dose immediately. 


d:fleopen. bmp. 


Details 


وحدث هذا الخطأً بسبب عدم وجود الصورة في المسار المحدد. لنقم الآن بتصحيح الخطأً في 
الحقيقة الملف الذي لا يوجد في المسار المحدد وهو 1:0 لا بد أن يتم وضعه لتصحيح الخطأً لكن 
الخطاً الذي نقصده هنا هو الخطا البرمجي وذلك بطرح بدائل للبرنامج يقوم بها إذا لم يوجد الملف 
في المسار المعين كما في المثال التالي: 


مثال على معالجة الأخطاء باستخدام ۷إ و Catch‏ 


في هذا المثال سنستخدم نفس معطيات المثال السابق مع بعض التعديلات في الكود لنتعامل مع خطأً 
احتمال عدم وجود الملف في المسار المحدد. سنستخدم المثال في المرفق رقم 025. 


نفتح المثال لنضع الكود التالي تحت حدث النقر على الزر: 
Try‏ 
PictureBox1.lImage = _‏ 
System. Drawing. Bitmap.FromFile ("d:\fileopen.bmp")‏ 
Catch‏ 


("قم بالتأكد من وجود الملف في المسار المحدد") ×80وك"N‏ 
End Try‏ 
لنجرب الآن تشغيل البرنامج مع عدم وجود الملف م"5۳.١عم0٠ه|آ؟‏ في 1:0 ونرى ماذا سيحدث 
للبرنامج لنرى الصورة: 
a Disc Drive Emer ENES‏ 


هذا البرتامج سيقوم بالىحث قى المسار 0 
عن الملف اصط.٣عم0عاا۴‏ ليقوم بهضعة قى 
صتدوق الصورة بالأسفل وإذا لم بجده سيقوم 
بإظهار صندوق حوار ليخبرتا بحدم وجود الملف 
قى المسار المحدد. 


Disc Drive Error 1 1 ١ 


قم بالتأكد هن وجوذ العلف في العسار الصحدد 


الآن بدلا من انهيار البرتامج فإنه يظهر لنا رسالة تخبرنا بعدم وجود ملف في المسار المحدد في 
الكود. علينا الآن أن نتعرف على الفوارق بين جُمَل ۸٤خ۵)٤...۲۷.‏ 


استخدام ۴١٣۵11¥‏ لغرض تحسين الإجراء البرمجي: 
كما وضحنا سابقا إن استخدام ۴1٣۵11¥‏ هو إجراء اختياري نكتب بعدة الكود الذي نريد تنفيذه 
سواءا حدث الخطا أم لم يحدث» لكن قد يصير مهما للعيد من الأغراض ومنها إنهاء التواصل مع 
قاعدة البيانات أو تحديث قيمة متغير معين أو خاصية محددة أو إظهار نتيجة معينة أو إعلامنا 
بانتهاء الإجراءات البرمجية سنقوم في المثال التالي باستخدام ۴1٣۵1۷‏ ولنأخذ الملف في المرفق 
رقم 026. 
ولنكتب هذا الكود في حدث النقر على الزر: 
Try‏ 
PictureBox1.lImage = _‏ 
System. Drawing. Bitmap.FromFile ("d:\fileopen.bmp")‏ 
Catch‏ 
("قم بالتأكد من وجود الملف في المسار المحدد") ×80وك"N‏ 
Finally‏ 
("تم إنهاء العملية") Ns360×‏ 
End Try‏ 
وتحميله إلى مربع الصورة) سيظهر لنا صندوق الحوار التالي: 
ا DE Oriye Error‏ 


تم إنهاء الععلية 


جJa Try...Catch‏ الأكثر تعقيداً 


في الأمثلة السابقة تعاملنا مع الجملة ٤‏ )...۲۲۷ وبشكل مبسط الآن سنتعامل مع جُمَل 
۷...۴" أكثر تعقيدا لصنع تطبيقات أكثر احترافية. 


التعامل مع الکائن ٤٣٣‏ 


للعلم الكائن ٤۲۲‏ كان متوفرا مع النسخ القديمة من الفيجوال بيسك والنسخ الأقدم لكن الفرق هنا هو 
أن الكائن في فيجوال بيسك 2008 قد تم تحديثه وإضافة العديد من الميزات له من ضمنها إعطاء 

تقرير أفضل عن الأخطاء وأرقامها وغيرها من التفاصيل كما يوجد العديد من الكائنات التي تتعامل 
مع الأخطاء مثل الكائن ١10†م٥)×E‏ ذو القدرات العالية في التعامل مع الأخطاء. 


من ضمن الميزات التي يحويها الکائن ۴۲۲ هي رقم الخطاً ۳.۳۴۲ ووصف الخطاً 
E۳. D escrito‏ فرقم الخطاً يحتوي على رقم أخر خطأً حدث ووصف الخطأً يحتوي على 
وصف قصير لذلك الخطاً وباستخدام الخاصيتيj Err. Number‏ ڪ isn Err.Description‏ 
الحصول على رقم الخطاً ووصف الخطأً ووضع أكواد برمجية للتعامل مع كل خطأً بطريقة معينة 
أو وضع أكواد للتوضيح للمستخدم ماذا يجب القيام به للتعامل مع مثل تلك الأخطاء. نستطيع مسح 
تقرير الخطأً في الكائن ٤۲۲‏ بواسطة الكود E۲۲.٣1۴۵۲‏ في الجدول التالي يوجد أرقام لبعض 
الأخطاء التي قد تحدث في البرنامج ويقوم الكائن ٤۲١‏ بإظهار أرقامها إذا حدثت وللعلم هناك 
أخطاء معقدة بعض الشيء خاصة في التعامل مع قواعد البيانات ستجدها في ملفات المساعدة 
المرفقة مع الفيجوال بيسك 2008. أما الأرقام الغير مستخدمة من 1- إلى 1000 فسيتم 
استخدامها مستقبلا من قبل مطوري الفيجوال بيسك. جدول الأخطاء: 


رقم الخطاً رسالة الخطاً 

Procedure call or Argument is not Valid ء«leڏتull خطأ في‎ 5 
Over f|0W الإغراق‎ 6 

Out of memory ةرکاiلl أكبر من قوة‎ 7 


Subscript out of range 9 


11 


13 


48 


51 


D2 


53 


55 


57 
58 


61 


62 
67 


68 


70 


71 


74 
75 


لقسمة على صفر 
عدم التطابق النوعي Type mismatch‏ 

dll Error in loading DLL J| خطا عند تحميJ مكتبة‎ 
Internal e€rrOr خطا داخلي‎ 

Bad fi le name or number pقر‎ وÎ اسم ملف خاطئ‎ 
File not found لا يوجد المذلفک‎ 

الملف حاليا مفتو ح File already 0p€‏ 

Device 1/O error 

File already exists E O 

القرض ممتلئ 

Input past end of file 

توجد ملفات كثيرة 

لا يوجد الجهاز 

لا توجد صلاحية 

القرص ليس جاهزا 


Cannot rename with different drive 


Path/File access error 


76 


91 
321 


322 


380 


381 
422 


423 


424 
429 
430 


438 
440 
460 
461 
462 


463 
481 


لا يوجد المسار 

Object variable or With block variable not set 

وة املك عة اة 

ليس بالإمكان كتابة الملف المؤقت اللازم 

قيمة الخاصية غير مقبول 

Property array index is not valid 

لا توجد الخاصية 

Property or method not fOUNd öةدوجوم الخاصية أو الطريقة غير‎ 


Object required 
Cannot create Microsoft ActiveX component 


Class does not support Automation or does not 
support expected interface 


Object does not support this property or method 
Automation error 
Clipboard format is not valid 


Method or data member not found 


لا یوجد سیرفر 


Class not registered on local machine 


الصورة غير صالحة 


482 خطأ في الطابعة. 


في المثال التالي سنتعرف على كيفية الاستفادة من رقم ووصف الخطاً في الکائن .٤٣۲‏ 
لنأخذ التطبيق السابق ونكتب الكود التالي في حدث النقر على الزر: 
Try‏ 
PictureBox1.lImage = _‏ 
System. Drawing. Bitmap.FromFile ("d:\fileopen.bmMp")‏ 
Catch When Err.Number = 53‏ 
("تأكد من الملف ومسار الملف") Ns480×‏ 
Catch When Err.Number = 7‏ 
Err.Description)‏ , ,"لا يمكن فتح الصورة بسبب تجاوز ها لإمكانيات الذاكر ة") ×>480ء۸ 
Catch‏ 
Err.Description(‏ , ,"حدث خطأً عند تحمیل الملف") ×0 s8‏ 
End Try‏ 
عد إلى الكود أعلاه ولاحظ أننا حددنا رقمين من أرقام الخطا: الرقم 53 (لا يوجد الملف) ستظهر 
هذه الرسالة إذا لم يوجد الملف» والرقم 7 (عدم كفاية الذاكرة) ستظهر هذه الرسالة إذا حاولنا فتح 
ملف وورد أو أكسل في داخل مربع الصورة (وذلك بتعديل اسم الملف من م 0٠P٥۸.5‏ ۴|۴ في 
الكود إلى اسم ملف وورد أو أكسل) وإذا حدث خطأ آخر غير هذين الخطأين سيقوم البرنامج 
بإظهار الرسالة الأخيرة وهي "حدث خطاً عند تحميل الملف'. 
قم بتجربة المثال أعلاه أعثر على الأخطاء: عدم وجود الملف (بحذف الملف من القرص) وعدم 
كفاية الذاكرة (بتعديل الكود ليقوم البرنامج بفتح ملف وورد أو أكسل في صندوق الصورة (فقط قم 
بتغيير ۴|۴٠٥."‏ في الكود إلى ٤40.ه|ا؟‏ أو ءا×. ۴|8 ولابد من توفر هذا الملف في 
القرص ليحدث الخطاً "عدم كفاية الذاكرة')). 


يوجد التطبيق في المرفق رقم 027. 


باستخدام رقم ووصف الخطاً تستطيع مساعدة المستخدم على فهم طبيعة عمل البرنامج وإيجاد 
الحلول المناسبة للأخطاء. 
أخطاء مع سابق الإصرار والترصد: 
للعديد من ألأسباب قد نريد أن نعرف مدى تجاوب البرنامج مع الأخطاء لذلك قد نقوم بإلقاء 
ماج۸ هذه الأخطاء في برنامجنا والتعرف على كيفية معالجتها من قبل البرنامج فمثلاً نستطيع 
كتابة هذا الكود في زر "اذهب" في حدث النقر على الزر: 
Try‏ 
Err.Raise (61)‏ 
Catch When Err.Number = 61‏ 
("القرص ممتلئ') ×0 s8‏ 
End Try‏ 
فسيتعامل التطبيق وكأنه قد واجه خطأ من النوع ذي الرقم 61 وقد تعامل معه صندوق حوار فيه 
تحديد عدد مرات المحاولة ب— Try...CatCch‏ 
نستطيع تحديد عدد مرات المحاولة ب 1۲۷...٤۵٤۸‏ بعدد محدد باستخدام متغير كما في المتال 
التالي: (التطبيق موجود في المرفقات برقم 028.) 
نصمم نفس التطبيقات السابقة ونكتب في حدث النقر التابع للزر الكود التالي: 
Try‏ 
PictureBox1.lImage = _‏ 
System. Drawing. Bitmap.FromFile ("d:\fileopen. bmp")‏ 
Catch‏ 


Retries += 1‏ 
If Retries <= 2 Then‏ 
("0:1 تأكد من وجود الملف في المسار ")×80ء× 
Else‏ 
("لا يمكنك المحاولة مرة ا MsgBOoX("é‏ 
Button1.Enabled = False‏ 
End If‏ 
End Try‏ 
ونكتب هذا الكود قبل حدث النقر على الزر )ءC)1:‏ 
Dim Retries As Short‏ 
وبعد تنفيذ البرنامج ومحاولة النقر على الزر "اذهب" أكثر من مرتين يتم تعطيل إمكانية الضغط 
على الزر بسبب الكود اج۴ = dعاطه١ع.1١ه٥Butt‏ وذلك بسبب تكرار العملية بدون نجاح 
ويكون الزر على الفورم غير فعال كما في هذه الصورة: 


af Disc Drive Error 


استخدام جمَل ٤1۸‏ )...۲۲۷ المتداخلة 


يمكنك استخدام جمل ال 1۲۷...٤)۵٤۸‏ بشكل متداخل» بمعنى إضافة جملة 1۲۷...٤۵٤۸‏ بداخل 
جملة أخرى ٣...٤) ٤۸‏ كما في المثال التالي: 
Try‏ 
PictureBox1.lImage = _‏ 
System. Drawing. Bitmap.FromFile ("d:\fileopen.bmMp")‏ 
Catch‏ 
("تأكد من وجود الملف في المسار المحدد ثم إضغط مو افق ") ×980ء"۸ 
Try‏ 
PictureBox1.lImage = _‏ 
System. Drawing. Bitmap.FromFile("d:\fileopen.bmp")‏ 
Catch‏ 
("لا يمكنك المحاولة مرة اش MsgBoXx(é‏ 
Button1.Enabled = False‏ 
End Try‏ 
End Try‏ 
ففي المثال السابق يقوم البرنامج بالسماح لنا بمعاودة الكرة مرة أخرى ومحاولة تحميل الصورة من 
المسار المحدد وإذا لم يفلح فإنه يقوم بتطبيق الأمر البرمجي التالي لكلمة ٥4٤1‏ الأولى وهو 
المحاولة مرة أخرى أو تعطيل التعامل مع الزر .8u 0١1‏ 


في الفصل العاشر من هذا الكتاب إن شاء الله ستتعلم كيف يتم تصميم دالة توجد فيها العديد من 
جمل ال ۸٤aع...۷٣"‏ المتداخلة. 
مقارنة جمّل صيد الأخطاء بخطوط الدفاع التقنية البرمجية 


جُمَّل صيد الأخطاء ليست الحل الوحيد للتعامل مع الأخطاء وإنما الحلول البرمجية أو خطوط الدفاع 
البرمجية قد تكون حل أمثل للتعامل مع الأخطاء فمثلا بدل من صيد الخطأ (الملف غير موجود) يمكننا 


استخدام الطريقة وخءآ×ع .]۴ التابعة للدوت نت فريم ورك تحت مجال الأسماء ۱0.٣عاكرS‏ 


If File.Exists("d:\fileopen.bmp") Then 
PictureBox1.lImage = _ 
System. Drawing. Bitmap.FromFile ("d:\fileopen.bmMp") 
Else 
s46 الملف غير موجود في المسار ") ×ە‎ 0:1"( 
End If 
فبدلاً من صيد الخطأ (الملف غير موجود) تم الاستعانة بجملة ۴| الشرطية بالإضافة إلى الطريقة‎ 
.ه۴ فإذا كان الملف موجود فسيقوم التطبيق بفتحه ووضعه في مربع الصورة على‎ ٤×٤6 
الفورم وإذا لم يوجد سيظهر لنا صندوق حوار يقول 'الملف غير موجود في المسار0:.‎ 
ملاحظة: بما أن الطريقة كأءا×ع .۴|۵ تتبع مجال الأسماء 10.٣ع5/5 في دوت نت فريم‎ 
ورك فلا بد من استدعاء مجال الأسماء في منطقة الكود وذلك بوضع الكود التالي أعلى منطقة‎ 
الكود:‎ 
Imports System.IO 
وكذلك فبدلاً من الدخول في خطأ قد ينهار بسببه البرنامج بسبب القسمة على المقام الذي يساوي‎ 
صفر » فبإمكاننا تصميم جملة شرطية تشترط إذا كان المقام يساوي صفر فإن التطبيق يرفض‎ 
العملية ويوضح السبب بأن المقام يساوي صفر.‎ 
ولا من اخلط نالروف والأرقاة فى نطق اة الكاة كاتا مع الستكه من إنخال‎ 
غير الأرقام في مربع النص في الآلة الحاسبة لئلا يحدث خطأ عند محاولة البرنامج جمع أو‎ 


السؤال الذي يتبادر إلى الذهن الآن متى نستخدم جُمّل صيد الأخطاء ومتى نستخدم خطوط الدفاع 
البرمجية في برامجنا: والإجابة هي يجب علينا استخدام مزيج من جُمَل صيد الأخطاء ومن خطوط 
الدفاع البرمجية في برامجنا بشكل علمي ومحسوب فمثلا للأخطاء المتوقعة المعلومة نستخدم 
خطوط دفاع وللأخطاء المتوقعة الغير معروفه نستخدم جمل صيد الأخطاء. وكذلك إذا كان 
الأخطاء قليلة نستخدم خطوط الدفاع البرمجية وإذا كانت الأخطاء كثيرة نستخدم جمل صيد 
الأخطاء. وللعلم خطوط الدفاع البرمجية المبنية على أساس تقني منطقي أسرع في التجاوب من 
جُمّل صيد الأخطاء فالبرنامج الذي يبحث عن وجود الملف أو لا بأداة الشرط ۴| والطريقة 
۴11۵.٤6‏ أسرع من البرنامج الذي يستخدم جمل صيد الأخطاء لمعرفة وجود الملف من 
عدمه. وعليه فيفضل استخدام خطوط الدفاع البرمجية إلا في الحالات الموضحة أعلاه. 
خطوة إضافية إلى الأمامء استخدام ٤×٤ ...۲٣۷‏ : 
إذا راجعت الأكواد التي صممناها في هذا الفصل لصيد الأخطاء ستلاحظ بأننا نغلق جملة 
"ry...atch‏ بالعبارة E٣١ ۲٣۲۷‏ والتي بدورها تقوم بإغلاق جملة صيد الأخطاء وينتقل 
البرنامج للجملة التي تليها في الكود ليقوم بتنفيذها (إذا وجدت). 
لكن عند استخدامنا للجملة ۲٣۷‏ × في جملة صيد الأخطاء ۲۲/...٤0۵٤۸‏ يقوم البرنامج 
مباشرة بمغادرة جملة صيد الأخطاء عند الوصول إلیها ۲٣۷(‏ أ×۴) بدون مراجعة بقية الأكواد 
التي قد تكون بين ثنايا جملة صيد الأخطاء )...1۲۷ وحتى قبل أن يصل البرنامج إلى 
العبارة .End 1 ry‏ 
لاحظ الكود التالي والمأخوذ من التطبيقات السابقة ولكننا أضفنا له عبارة ٤×٤ ۲٣۷‏ كتطوير لجملة 
صيد الأخطاء كالتالي: 
Try‏ 
If PictureBox1.Enabled = False Then Exit Try‏ 
PictureBox1.lImage = _‏ 
System. Drawing. Bitmap.FromFile ("d:\fileopen.bmp")‏ 
Catch‏ 


Retries += 1‏ 
If Retries <= 2 Then‏ 
(":0 تأکد من وجود الملف في المسار ")×480ءN‏ 
Else‏ 
("لا يمكنك عرض الصورة")×980؛"۸N‏ 
Button1.Enabled = False‏ 
End If‏ 
End Try‏ 
لاحظ ثاني سطر في الكود والذي يتأكد من أن صندوق الصورة مفعل وجاهز لاستقبال الصورة 
فإذا كانت الخاصية لصندوق الصورة ك٥اطة"١ع‏ تساوي ٥ا۴‏ فهذا يعني أن صندوق الصورة 
لا يمكنه استقبال الصورة ولا داعي لمحاولة إدراج صورة بداخله وعلية فإذا لم يكن صندوق 
الصورة مستعداأ لقبول الصورة فالحل هو ۲۲۷ ×5 بدون المضي قدما في جملة صيد الأخطاء. 
أما إذا كان جاهزا لاستقبال الصورة وذلك بأن تكون الخاصية لصندوق الصررة لعاbھ٤‏ 
تساوي ۵ا۲۲ فسيقوم البرنامج بمواصلة جملة صيد الأخطاء» بسبب وجود أداة ۴| الشرطية (أنظر 
السطر الثاني في الكود). 
مبروك عليك هذه المعرفة التي اكتسبتها بقراءتك وتطبيقك حتى هذه النقطة من الكتاب ونستطيع 
القول بأنك قد فهمت العديد بل معظم أساسيات البرمجة ولكننا الآن سننحني منحنى آخر وذلك 
بالغوص عميقا في بحر الدوت نت لنكتشف الدرر وذلك في الفصل القادم حيث سنتعلم كيف نبني 
الدوال والإجراءات llلبرnمجية .modules and procedures‏ 
خلاصة الفصل التاسع: 
من اجل أن قم بالتالي 


تحديد الأخطاء وقت تقوم ببناء جملة لصيد الأخطاء باستخدام صيغة واحدة أو أكثر من 


e‏ ۴ البرنامج 
ومعالجتها 


لفحص خطأً محدد 
باستخدام جُمل فحص 
الأخطاء 


at‏ ...۷" فمتلاً الكود التالي يحدد الأخطاء التي قد تواجهنا بسبب عدم 
وجود الملف أو بسبب الخطاً في كتابة المسار: 


Try 
PictureBox1.lImage = _ 
System. Drawing. Bitmap.FromFile _ 
(“d:\fileopen.bmp") 
Catch 
N"ءو80×)"ددحملا ("تأكد من وجود الملف في المسار‎ 
Finally 
Nsو80>× ("تم إنهاء العملية")‎ 
End Try 
نستخدم الخاصية ۴۲۲.۸۱156۲ لفحص خطأ محدد والتعامل معه»ء مثال:‎ 
Try 
PictureBox1.lImage = _ 
System. Drawing. Bitmap.FromFile _ 
("d:\fileopen.bmp") 
Catch When Err.Number = 53 
N"ء480×)"ددحملا ("تأكد من وجود الملف في المسار‎ 
Catch When Err.Number = 7 


_ و و"تأكد من أن الملف المختار هر صورة")×Ns980‏ 


کان عل س اخطاد 
r۷...catch‏ ا متداخلة 


Err.Description) 
Catch 
N×NS980×)"فلملا و و"حدثت مشكلة وقت تحميل‎ _ 
Err.Description) 
End Try 
راجع الفصل لمعرفة سبب اختياري لكلمة عمداء لتعمد إنشاء خطأً نستخدم‎ 
فمثلاً يمكننا اختلاق الخطأً (عفواً القرص ممتلئ)مثال:‎ ٤۲۲.۴۵۵ الطريقة‎ 
Try 
Err.Raise (61) 
Catch When Err.Number = 61 
۸Nء480×)"ئلتمم ("عفوا القرص‎ 
End Try 
نستطيع كتابة جمل صيد أخطاء )...1۲۷ بشكل متداخل كالتالي:‎ 
Try 
PictureBox1.lImage = _ 
System. Drawing. Bitmap.FromFile _ 
("d:\fileopen.bmp") 
Catch 


("تأكد من وجود الملف في المسار المحدد")×80وء"N‏ 


Try 


PictureBox1.lImage = _‏ 
System. Drawing. Bitmap.FromFile _‏ 
(“d:\fileopen. bmp")‏ 
Catch‏ 
("تم إلغاء إمكانية عرض الصور :")380ء۸ 
Button1.Enabled = False‏ 
End Try‏ 
End Try‏ 
الخروج من جملة صيد | نستخدم العبارة ۲٣۷‏ اأ×£ للخروج من جملة صيد الأخطاء Try...CatC‏ 
الأخطاء ۲۳۷...٤3٤٤۸‏ | بذون مراجعة بقية الشزوط بداخل الجملةء لذا استلزم الأمر× متلا إذا كان 
بدون المواصلة إلى صندوق الصورة غير جاهز لاستقبال الصورة فبإمكاننا الخروج قبل تكملة 
النهاية atch...ء‏ مثال: (راجع الفصل إذا كان المثال التالي غير واضح) 


If PictureBox1.Enabled = False Then Exit Try 


الفصل العاشر: كتابة دوال وإجراءات ووحدات وأحداث برمجية Creating Modules a¬d‏ 
Procedures‏ 

في الفصول التسعة السابقة تعلمنا كيف نضع كود معين أو نصمم كود معين ليعمل تحت حدث 
معین فمثلا کود لإغلاق البرنامج تحت حدث النقر على الزر cKاا€_۸1٥)tںB‏ او تنفیذ أمر 
معين تحت حدث المؤقت ١1 ٥۲1_۲1٤)‏ أو تعبئة مربعات النص تحت حدث تحميل الفورم 
L4ا_1 ۴٥‏ وإذا لاحظت ستجد بأن جمیع الأوامر يجب أن تكتب بین ں؟ ۴۷2€ و 
E۴ "4 5٥‏ أو لا بد أن تكتب بداخل خانة معينة أو وحدة برمجية محددة أو بداخل حدث معين» 
وحتى تعريف المتغيرات إذا عرفنا متغير بداخل وحدة برمجية معينة مثل تعريف متغير ١2۳"٥‏ 
على أنه 5٣1٣١‏ بداخل حدث 1044 التابع للفورم لن يكون المتغير معرفا بداخل حدث )عااC‏ 
التابع للزر 81۷0١‏ وإنما لابد من تعريفه مرة اکت بداخل حدث )ع]1)). 


وللتوضيح نقول أنه فقط المتغيرات العامة المعرفة بداخل كيانات »ان۴ أو أةطمات هي التي 
نستطيع استخدامها في التطبيق بكامله» وعليه فاستخدام التعريف العام للمتغيرات يساعدنا كثيرأً في 
اختصار الوقت وفي التقدم في الحلول المنطقية للأمور البرمجية. 


سنتعرف في هذا الفصل على كيفية بناء وحدات منطقية كعاالكه وهي عبارة عن وحدات 
برمجية في البرنامج تحتوي على متغيرات عامة ودوال برمجية وإجراءات وأحداث نستطيع 
استخدامها على طول البرنامج. سوف نتعلم كيفية تعريف واستخدام المتغيرات العامة وسوف نتعلم 
كيفية بناء إجراء عام يمكننا استخدامه في أكثر من تطبيق» وبالطبع سيسهل علينا عملية البرمجة 
وسيحفظ الوقت. المهارات التي سنتعلمها هامة جدا للمشاريع الكبيرة وكذلك وللعمل كفريق. 


العمل مع الوحدات البرمجية ال Modules‏ 


كلما ستقوم ببرمجة البرامج الكبيرة والمشاريع المتوسطة والعملاقة والتي تحتوي على العديد من 
النوافذ والإجراءات ستستخدم العديد من المتغيرات وبشكل متكرر» وبشكل أساسي في بيئة التطوير 
عندما نقوم بتعريف متغير ما فإن هذا المتغير يمكن استخدامه داخليا فقط بداخل الحدث الذي تم 
تعريف المتغير فيه أو بداخل الإجراء البرمجي المحدد وإذا توسعت المسألة أكثر وعرفنا المتغير 
في أعلى منطقة الكود التابعة للفورم فيمكننا استخدام المتغير في داخل الكود لذلك الفورم الواحد 
فقط. إذا احتجنا لهذا المتغير في فورم آخر فيجب علينا تعريفه مرة أخرى وهذا لا يناسب المشاريع 
الكبيرة لذلك كان لابد لنا من استخدام الوحدات البرمجية المعروفة ب كعااله" والتي تساعدنا 
في اختصار الوقت وتوفر علينا تكرار تعريف المتغير في أكثر من فورم على مستوى المشروع أو 
التطبيق. فال عااله هي وحدة برمجية يمكننا تعريف المتغيرات والإجراءات والأحداث 
بداخلها واستخدامها في أي منطقة في المشروع. في فيجوال بيسك 6 كانت ال عاا ل0" تتتهي 
بلاحقة .4( أما في الدوت نت فمعظم العناصر الداخلة في المشروع تنتهي بلاحقة .۷5 ومنها 
ال عاںdه"‏ والنوافذ ال ۴١۲۳۶‏ وغيرها من مكونات المشروع. 


التشابه بين النوافذ ال ۴١۲۳١١‏ والوحدات البرمجية ال كعاالكه هو أنهما يتم فهرستهما في 
مستکشف المشرو ع E×)0۲٥۲‏ ۸٥1ا‏ ل501 (أعلى يمين بيئة التطوير) ونستطيع النقر على نافذة 
معينة في مستكشف المشروع ومشاهدة تصميم النافذة والكود التابع لها لكن يوجد كود فقط للوحدات 


البرمجية ك6الالكه" ولا يوجد تصميم مثل النوافذ. يوجد تشابه بين الكلاس ككهاع وبين الوحدات 
البرمجية ال كعااله" في بعض الأمور ولكن تختلف الوحدات البرمجية ال sعاduله"N‏ عن 
الكلاس ككه)ا) بأنها ليست كائنيه التوجه 6٤-۲۴٣ ٥٩١‏ زط٥‏ ولا تحدد هيكل وخصائص 
الكائنات ولا يمكن وراثتهاء إذا كانت هذه المصطلحات صعبة من وجهة نظرك فأعلم بأنك لست 
الوحيد في ذلكء ولا تخاف ففي الفصل السادس عشر سنتعرف جميعاً على هذه المصطلحات. 


Creating a Module إنشاء وحدة برمجية‎ 


لإنشاء وحدة برمجية )لال0( جديدة نذهب إلى مستكشف المشرو ع Solution Exp|Or€r‏ 
(أعلى يمين بيئة التطویر) ونضغط بالماوس )1cا٣-٤۸واR‏ على اسم المشروع ونختار ۸dd‏ ثم 
t6mNا New‏ ومن النافذة التي ستظهر نختار عااله۸ ونسميها بالاسم الذي نريد أو الموافقة 
على الاسم المقترح من قبل بيئة التطوير وهو ۴1.۷60 )اله وحتى إذا وافقنا تم فكرنا بتغيير 
الاسم ك نستطيع ذلك بالذهاب إلى مستکشف المشروع ۲٤۲٥)م×٤‏ ۸٥آt‏ )اه5 ونختار ال 
eاodu‏ ونضغط بالماوس R1۸†-))1C)‏ ثم نختار ۸۵۸۵۳٩‏ ونسمیها بالاسم الذي نریدء او 
حتى من نافذة الخصائص في الخاصية "٥€‏ ۸. على كل نقوم الآن بإنشاء وحدة برمجية 
عاM0du‏ جديدة فقط. انظر الصورة التي نختار منھا ا Module‏ : 


اک 
Ba‏ 
_ 2 
ل 
Ol Class usta‏ 
Control =‏ 
dd E‏ 
JSeript File LING to SQL‏ 
Classes‏ 
i 3‏ 
ET‏ ت 
„Module, Raport‏ 
TOT‏ 


ج ولا ا 


2 


Lode File 


8 


Interface 


ا 


MDI Parent 


Fartri 
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Visual Studio installed templates 


las 
Diagram 


Explorer 
Foren 


س 


ا 


Login Form 


ك 


WEEE 


اا 


Dialog 


Local 


Uatabd... 


¬ 


| د 
Ab out Box‏ 


EEE 
OataSet 


Local 
Databa3ê 


HT 
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Kabegoriet: 

Lorimiûri Herî 
Code 
Data 
General 
elb 
Windows Farms 
WPF 


& file For sborîng groups of Functions 


Hame: Madule lb 


ستلاحظ في الصورة أعلاه العديد من المكونات التي يمكننا إضافتها للمشروع والتي توفرها بيئة 
التطوير من ضمنها نافذة دخول ۴0٥0١۲۳‏ ١41ص‏ | ونوافذ حوار )آ0 وغيرها من النوافذ 


والمكونات التي سنتعرف عليها في الفصل السادس عشر. 


بعد الضغط على الزر ۸4١‏ في الصورة أعلاه ستقوم بيئة التطوير بإضافة وحدة برمجية 
٥اdu|‏ وفتحها كما في الصورة التالية: 


Tr ir 


+ Î [Declarations] 


Test 


Taols 


Data 


Debug 


E 


Skat Page 


7 Module Test - Microsoft Wisual Studio 
Euild 
د 4 ا ا ٣ك وھ لج‎ 
Modulel.¥b  Form1.wb [Design] 


E1 Hodule Module 1 


File Edit Yew Project 


o0] 


3Ê Madule1 


سسس 


Hodule 


الآن أي متغير ستقوم بتعريفة هنا يمكنك استخدامه في أي فورم على طول المشروع. 


Working with Public Variables ةnlall العمل مع المتغيرات‎ 


تعريف المتغيرات العامة بداخل الوحدات البرمجية ال كع اله سهل للغاية فقط قم بكتابة كلمة 
Ubi‏ ثم اسم المتغير ثم 45 ثم نوع المتغير كما في المثال التالي الذي يقوم بتعريف المتغير 
٥صNam‏ کمتغیر من النوع $٣١٣4‏ : 

Public Name As String 


ما سيجعل الأمر أكثر متعه هو الإكمال التلقائي في بيئة التطوير. سنأخذ مثال على تعريف المتغير 
في وحدة برمجية كع اله هل تتذكر برنامج الرقم المحظوظ برنامج ۸۲٩4۳‏ الذي قمنا 
بتصميمه في بداية هذا الكتاب (موجود في المرفق رقم 002)» نعم سنذهب الآن إلى ذلك البرنامج 
لنضيف له وحده برمجية ۵) ال۸0 ونستفید من المتغیر بداخلهاء سنضیف متغیر باسم W1۸5‏ 
ليقوم هذا المتغير بحساب كم عدد المرات التي ربحت فيها كلما دارت وتغيرت الأرقام (كلما 
ظهرت الصورة فهذا يعني بأنك ربحت» ومن أجل أن تظهر الصورة لا بد أن يظهر الرقم 7 في 
أحد الليبلات»ء هل تتذكر هذا). بعد فتح التطبيق ۸۲٩4۳‏ نقوم بإضافة ليبل له ليظهر كما في 
الصورة: 


:End Module Jبã‎ Module —J| تم نضيف هذا الكود في الوحدة البرمجية‎ 
Public Wins As Short 


الكود أعلاه يقوم بتعريف المتغير W1١١‏ كمتغير عام في المشروع بالكامل»ء وبعدها نضيف هذا 
الكود في الحدث التابع للزر "بدا" في الفورم بعد :PictureBox1.Visible = True‏ 
If (Label1.Text = "7") Or (Label2. Text = "7") Or (Label3.Text = "7") _‏ 
Then‏ 
Beep()‏ 
Wins = Wins + 1‏ 
Wins)‏ & " :مرات lلربج"(‏ = Label5.1ext‏ 
ثم نقوم بتشغيل البرنامج ونضغط على زر ابدأً أكثر من مرة. ماذا ستلاحظ؟ 
ستجد نسخة من المشروع أعلاه في المرفق رقم 029. 
إiشlء‏ إجڙر اء Creating Procedures‏ 
الإجراء هو عبارة عن مجموعة من الأوامر البرمجية ذات العلاقة فيما بينها التي تقوم بمهمة 
معينة. وتنقسم إلى قسمين: 
إجراءات الدوال: وهي الإجراءات التي يتم استدعائها بواسطة اسمها من أي حدث» وعادة ما 
ن تستخدم للعمليات الحسابية ود تسنقدا ( مدخلات وترجع أنا قیم. 
الإجراءات ١٥ا‏ uكعع‏ هام طنا؟ وتستدعى بالاسم من أي حدث» وتستقبل مدخلات وترجع لنا 
مخرجات معدلة على شكل قائمة ا5آاء والفرق بينها وبين إجراءات الدوال بأنها لا ترجع لنا قيمة 
كتابة إجرlءات‏ llدJIy :Writing Function Procedures‏ 
إجراءات الدوال هي عبارة عن مجموعة من الأوامر البرمجية المكتوبة بین ۴۸٤107‏ و End‏ 


0اا ۴une‏ هذه الأوامر البرمجية تقوم بعمليات محددة حسابية أو منطقية أو غيرها وتخرج لنا 
مجموعة من المخرجات» بإمكانك استدعاء الدالة بواسطة كتابة اسمها في الكود مع وضع 


المعاملات اللازمة. المعاملات هي البيانات التي تجعل الدالة تعمل ولابد من وضع هذه المعاملات 


بين قوسين ويتم الفصل بين كل واحدة منها والأخرى بواسطة الفاصلة › . ببساطة استخدام الدوال 
هو بالضبط مثل استخدام الدوال المرفقة أو الطرق المرفقة ضمن بيئة التطوير مثل ۸١‏ ,اء 
أو ٥ا۴ ۴m‏ (لعلك تتذكر هذه الكلمات ويمكنك مراجعة الصفحات السابقة من هذا الكتاب). 
ملاحظة: الدوال التي يتم تعريفها بداخل الحدات البرمجية ال كع ااكه" تعتبر عامة مباشرة لذلك 
تستطيع استخدامها في أي منطقة في الكود على طول المشروع. 


Function Syntax ةllدئll‎ ءliڊ‎ 


البناء الأولي للدوال يأتي في مثل هذا الشكل: 
Function FunctionName ([arguments]) As Type‏ 
function statements‏ 
[Return value]‏ 
End Function‏ 
الكلمة ٣2۳"۴‏ هااع۴un‏ تعني اسم الدالةء ٥م1۷‏ نوع المخرجات من هذه الدالة في فيجوال 
بيسك 6 كان بإمكاننا عدم تحديد نوع المخرجات أما الآن فلا بد علينا من توضيح نوع المخرجات 
في فيجوال بيسك 2008ء وإذا لم نحدد فإن بيئة التطوير تعتبر المخرجات من النوع ا٤‏ #زط0. 
um ٤‰‏ هي المعاملات الاختيارية التي توجد في الدالة ويفصل بين كل معامل وآخر 
الفاصلة » ولابد من تحديد نوع كل معامل على حدة وبشكل طبيعي تضيف بيئة التطوير الكلمة 
Ba)‏ لكل معامل وهناك فرق بjı ByVal‏ ڍ .ByRef‏ 


Calling a Function Procedure all «leدتl‎ 


لاستدعاء دالة ما في داخل حدث معين أو في أي منطقة من الكود نستدعيها كالمثال التالي الذي 
TextBox1.Text = TotalTax(500)‏ 


هذا الكود يستدعي الدالة )ه٤٠٠‏ والتي بدورها تحسب إجمالي الضريبة المستحقة على المبلغ 
0 دو لار» ويتم وضع المخرجات أو النتيجة في صندوق النص التابع ل 1۴×)80×1. 
أما الرقم 500 فهو الرقم الذي نريد احتساب الضريبة له ويمكننا وضع متغير بدل عنه كما في 
المثال: 
Dim X as Single‏ 
X= 500‏ 
TextBox1.Text = TotalTax(X)‏ 


استخدام الدوال في العمليات الحسابية: 


باستخدام برنامج الرقم المحظوظ الذي صممناه في أول الكتاب وطورناه قبل قليل بحساب عدد 
مرات الربح» سنصمم الآن دالة تقوم بحساب نسبة الفوز بقسمة عدد مرات الفوز على عدد مرات 
ضغط الزر ابدأ. لنعد الآن إلى المشروع في المرفق 029 ونقوم بفتحه ونضيف ليبل إضافي 
للفورم ونعدل على خصائصه حتي يصير كما في الصورة التالية: 


نذهب إلى الوحدة البرمجية ال ع اناه" ونكتب الكود التالي فيها: 
Public Spins As Short‏ 
Function HitRate(ByVal Hits As Short, ByVal Tries As Short) As String‏ 
Dim Percent As Single‏ 
Percent = Hits / Tries‏ 
Return Format(Percent, "0.0%")‏ 
End Function‏ 
حيث تم تصميم دالة لحساب نسبة الربح بقسمة ال كءاأ١۳‏ على 1٣٠٠١‏ أو بقسمة عدد مرات 
النجاح على العدد الإجمالي للضغط على الزر ابدأ. ثم إخراج القيمة الناتجة على هيئة نسبة. 
اسم الدالة أعلاه ١1۸۵٤6‏ ونوعها نصي 5١١١١‏ لان نوع المخرجات نصية (لإن المخرجات 
النسبية عبارة عن مخرجات نصية). 
وذلك بإضافة الكود التالي بعد السطر الثالث (أي بعد السطر = أ×٥13.1٤اما‏ 
Rd) ( * 0‏ )tہا)CStr)))‏ نکتب الکود : 
Spins = Spins + 1‏ 
والذي يحسب لنا عدد مرات النقر على الزر "ابدأً'» ثم نضيف كود استدعاء الدالة في أخر سطر 
في حدث النقر للزر 610١1‏ وكالتالي: 
Label6. Text = HitRate(Wins, Spins)‏ 
هل عرفت ما ستقوم به الدالة الآنء نعود الآن إلى الوحدة البرمجية ال ماله" ونقرأها من 
جديد لنعرف بأننا سمينا الدالة ه11۸8 ثم عرفنا لها اثنين من المعاملات وهما ئځا١٨۸‏ و كا٣‏ 
على أنهما متغيرات رقمية وتم حساب القيمة الناتجة من قسمة ءا على ۲٣٠۴١‏ وإسنادها إلى 
متغیر جدید سمیناه ۴۴۲٣۵8١۲‏ (متغير رقمي من النوع )51١3)€‏ فقط عند الحصول على 


المخرجات من الدالة ۳۸20 سنحصل عليها على هيئة نسبية بسبب السطر الأخير في الكود في 
الدالة 0.0%" ."Return Format(Percent,‏ 

وعندما نستدعي الدالة في منطقة الكود في الفورم نطلب منها أن تقسم عدد مرات الفوز ال W١‏ 
على عدد مرات النقر على الزر "بدأ" ك١آم؟‏ » وللتذكير فقط قد قمنا في المثال السابق بإسناد عدد 
مرات الفوز إلى المتغير W٠١١‏ وقمنا الآن بإسناد عدد مرات الضغط على الزر "بدأ" إلى المتغير 

. Spins = Spins + 1 في الكود‎ Spآئ‎ 


نقوم الآن بتجربة التطبيق ثم حفظه وإغلاقه» نسخة من التطبيق موجودة في المرفقات برقم 030. 
كتابة "إجراءات مصiرs" Sub Procedures‏ 

(للتوضيح مرة أخرى فبعض المصطلحات لم استطع ترجمتها بصورة صحيحة لذلك قمت بوضع 
المصطلح الأصلي). الإجراءات تعتبر مشابهه للدوال ماعدا فرق واحد وهو أن الإجراءات لا 
ترجع لنا قيمة متناسقة مع نوعهاء وتستخدم الإجراءات ۲0١٤۳61۲٥‏ ل51 في الحصول على 
المدخلات من المستخدم وكذلك في عرض أو طباعة المعلومات» أو التعامل مع بعض الخصائص 
على حسب الحالة. 


الصيغة العامة للإجراءات المصغرة ocedUreثاp Sub‏ 
الصيغة العامة البسيطة للإجراءات المصغرة ٤٣۴ du۲٥‏ ١۲0م‏ ا5 كالتالي: 
Sub ProcedureName ([arguments] )‏ 


procedure statements 
End Sub 


ProcedureName‏ اسم الإجراء» كخ٣عمصuعاه‏ المعاملات ويفصل بين كل واحدة والأخرى 
فاصلة » كل معامل لابد أن نحدد نوعه سيقوم فيجوال بيسك بتعريف المعامل على الأساس 
procedure statements‏ .اBy/۷a‏ الجمل البرمجیة. 


إذا قمنا بتعريف الإجراءات في داخل ال عااكه" فإنها تعتبر عامة ويمكن استدعاؤها من أي 
مكان في الكود. 

تعريف المعاملات المضمنة في داخل الإجراءات يتم بطريقتين 8/۸٠۴‏ ا8/۷2 ولكل طريقة 
ميزات مختلفة عن الأخرى وسنعرف الفروق بين الطريقتين في نهاية هذا الفصل. 

استخدام الإجراءات للتعامل مع المدخلات: 


الإجراءات تستخدم لجلب المدخلات من المستخدم خاصة إذا كانت هذه المدخلات تأتي من أكثر من 
مصدر ولكن بنفس الهيئة ال ۵ .۴١١۳‏ ففي هذا المثال ستكون المدخلات عبارة عن أسماء 
الموظفين وسيتم إضافتها إلى صندوق نص متعدد الأسطر. الإجراء سيحفظ لنا الوقت فبدلاً من 
كتابة نفس الأوامر عند كل زر مرة أخرى سنقوم بتعريف الإجراء في عااله" ومن ثم التعامل 
معھا عند کل صندوق نص. 

مثال: 


افتح الفيجوال بيسك 2008 وقم بإنشاء تطبيق جديد اسمه ا5 ×80 »٠۴×‏ بعد إنشاء التطبيق 
نقوم بإضافة ثلاثة أزرار إلى الفورم وعدد اثنين ليبلات وكذلك اثنين صناديق نص. ليكون الفورم 
بالشكل التالي: 


Formi l= 


ثم نضيف عاں ۸0d‏ للمشروع ونضیف لل عاu "0d‏ هذا الکود :End Module Joa‏ 


Sub AddName (ByVal Team As String, ByRef ReturnString As String) 
Dim Prompt, Nm, WrapCharacter As String 


Prompt = "Jاخıإب‎ مpã‎ " & 1 ea °" & " ٴموظف‎ 


("صندوق مدخلاٽ" Nm = InputBox (Prompt,‏ 
WrapCharacter = Chr(13) + Chr(10)‏ 
ReturnString = Nm & WrapCharacter‏ 
End Sub‏ 
فورم في المشروع» اسم الإجراء A١42۳۴‏ له اثنين من المعاملات وهما » ٠۴4۳‏ 
ReturnStrin4‏ تم تعريفهما على أنهما من النوع النصي 3١٣5ء‏ لكن هناك فرق بينهما وهو 
أن المعامل ۲۴۵۳ يعتبر )8/۷۵ بينما المعامل ReturnString‏ يعامل على إالأساس .ByRef‏ 
وبسبب أن المتغیر ۸1۲۸5٤۲٣4‏ يعتمد على الأساس 8/۸٥۴‏ فإن أي تغيير في هذا المعامل 
في الإجراء سينتقل هذا التغيير تبعاً عند عملية الاستدعاء. أما المعاملات المعتمدة على الأساس 
1 فيتم الاعتماد على القيمة الأولية بغض النظر عن التغييرات اللاحقة. 


المتغيرات أم ۴۲٠١۳١‏ و N"‏ تم استخدامهم لعرض صندوق إدخال ليتم كتابة الاسم فيه. 


أما المتغير ٣۸2۲٤٤6٣١‏ مهاW‏ فسيقوم بالقفز بالاسم من سطر إلى آخر لكي يكون كل اسم في 
سطر مستقل وذلك باستخدام الکود ۸۲)10 + (۸۲)13))» ويمكننا إنشاء سطر جديد في صناديق 
النص متعددة الأسطر دائماً باستخدام هذا الكود. 

لاحظ هنا بأننا نريد استخدام الإجراء في حفظ اسم الموظف على هيئة معينةء في أكثر من قسم 
(قسم المبيعات وقسم التسويق) فإذا تم كتابة الكود تحت كل زر ١0ا8‏ على حدة فسنتأخر فترة 
أطول» دعونا نفترض بأن البعض سيقبل ببعض التأخير ماذا إذا أردنا تحديث وتطوير الكودء 
سنقوم بكتابة التحديث تحت كل زر لكن في حالة تصميم الإجراءات ووضع الإجراء بداخل وحدة 
عا0du‏ فسيكون التعديل أر التحديث سهلا وأكثر فعالية. 


هذا الإجراء يستخدم صندوق الإدخال ليسمح للمستخدم بإدخال اسم الموظف» على أساس اثنين من 
المعاملات ٦۴۵۳"‏ والتي تعني نوع أسم القسم (قسم المبيعات وقسم التسويق( و ReturnStrİN¥‏ 
وهو المتغير الذي سوف يحتوي على اسم الموظف وبشكل مرتب بحيٿٽ يكون اسم كل موظطف 
جدید في سطر جدید. وبسبب تعریف المعامل ۸1۲۸5٤۲1۸4‏ بنو ع 8/۸6۴ فإن أي تغيير في 
قيمة هذا المعامل في الإجراء سينتقل بدورة إلى مرحلة استدعاء المعامل. 

لنستعرض الفورم مرة شر ونضغط )ء)٣-عاطام0‏ على الزر إضافة اسم تحت خانة 
المبيعات ونكتب هذا الكود والذي يستدعي الإجراء الذي قمنا بتصميمه سابقا: 


Dim SalesPosition As String = 
AddName ("ٽlعبnll",‎ SalesPosition) 
TextBox1.Text = TextBox1.Text & SalesPosition 


قمنا بتعريف متغير نصي ١110ء0‏ 5۲ع)ه5 ثم قمنا باستدعاء الإجراء ۳6۴ ١N2‏ ك۸ وحددنا 
المعاملين الاثنين له بداخل القوسين وهما 1- المبيعات ويساوي ۳۴۵۳ في الإجراء الذي تم 
تعريفه وكذلك المتغير النصي i0۸ئosi‌SalesP‏ يږlوي ReturnString‏ ãۃp‏ حددنا بأن خانة 
المضاف عن طريق الإجراء 2۳۴ل[ ۸44. ثم نفتح الفورم مرة اخ ,i›ضbiط Double-Click‏ 
على الزر إضافة اسم تحت خانة التسويق ونكتب هذا الكود في حدث النقر على الزر: 
Dim MktPosition As String = "™"‏ 
AddName ("ٽIgرتشnll", MktPosition)‏ 


TextBox2.Text = TextBox2.Text & MktPosition 
. ١۴۵۳" وهو نفس الكود للزر السابق مع فرق وحيد وهو تغيير اسم القيم في المتغير‎ 


الآن نقوم بتشغيل البرنامج ونقوم بعملية إضافة الأسماء ومشاهدة التغييرات في صناديق النص» 


خطوة إضافية إلى الأمام: 


ByRef jİ ByVal إضافة المعاملات ب—‎ 


في المثال السابق ذكرنا أنه باستطاعتنا إضافة المتغير للإجراء بطريقتين وهما بالقيمة )8/۷2 أو 
بالمرجع 8/۸6۴ ولكل طريقة مواصفات معينة دعونا الآن لنتعرف على الفرق بينهما. القيمة 
الافتراضية هي 8/۷۵1 حيث يتم تمرير المعامل بهذه الطريقة إذا لم نحدد نوعية تمرير المعامل. 
فإذا تم تمرير المعامل بالطريقة 6/۷2 فسيتم تمرير قيمة المعامل بغض النظر عن التغيرات التي 
قد تحدث للمتغير» أما إذا تمت عملية تمرير المعامل بالطريقة 8/۸6۴ فسيتم نقل المتغير بطريقة 
المرجع أي أنه إذا حدث تغيير في القيمة فسيتم نقل هذا التغيير إلى قيمة المتغير. دعونا نأخذ هذا 
الإجراء كمثال: 
Sub CostPlusProphet(ByRef Cost As Single, ByRef Total As Single)‏ 
% إلى السعر5أضف ' 1.05 * Cost = Cost‏ 
Total = Int(Cost)‏ 
End Sub‏ 


Dim Price, TotalPrice As Single 
Price = 100 
TotalPrice = 0 
CostPlusProphet(Price, TotalPrice) 
MsgBox(Price & " at 5% as prophet is " & TotalPrice) 
لاحظوا أول سطر في الإجراء بأننا عرفنا التكلفة 5ه بالطريقة 8/۸6۴ وفي داخل الإجراء تم‎ 
100 تغيير قيمة التكلفة اكه بإضافة %5 كربح أو كهامش ربحي وبما أن التكلفة الأولية تساوي‎ 
فإن قيمة المتغير ا5٥ ستنتقل على أساس أنها تساوي 105 (أي بعد إضافة ال %5) لأننا‎ 
مررنا المتغير بالطريقة 6/۸6۴. لنجرب نفتح مشروع جديد ونضيف الكود من البداية حتىی ۸۵ع‎ 


في أي مكان داخل الفورم لكن لليس بداخل أي حدث (لإنه إجراء) ونضيف الكود الباقي 
تحت حدث النقر على زر أو تحت حدث تحميل الفورم وسنلاحظ هذا الصندوق الحواري: 


WindowsApplication1 


105 at 5% as prophet is 105 


WindowsApplicationl 


100 at 5% as prophet s5 105 


والسبب في ذلك يعود إلى ما تم توضيحه سابقا بأن عملية تعريف المتغير بالطريقة 8/۸6۴ يتم 
نقل قيمة المتغير مع ملاحظة التغيرات التي قد تطرأً على المتغير أما تعريف المتغير بالطريقة 
1 فلا تهتم بالتغيرات التي تحدث على المتغير ويتم نقل قيمة المتغير الأولية بدون مراجعة 
المتغيرات. إذا عدنا إلى المثال أعلاه سنلاحظ بأن التغيير الذي حدث في المتغير هو تغيير في قيمة 
المتغير بسبب الأوامر البرمجية التي كتبناها في الإجراء وعلية فننتبه للأوامر التي قد نضيفها في 
الأكواد فإذا كان لهذه الأوامر تغيير في قيمة المتغير فلا ننسى أن نمرر المتغير بالطريقة 8۷۸٥۴‏ 
أما إذا يوجد أي تغيير فلا بأس من استخدام الطريقة الافتراضية )8/۷. ولا ننسى بأن لكل 
طريقة مميزات وعيوب حسب طبيعة البرنامج. وللتذكير فإن الطريقة الافتراضية هي )5۷۷2 
بحيث إذا لم يتم تحديد طريقة تمرير المتغير فإن بيئة التطوير تعتمد هذه الطريقة في التمرير. 


باختصار شديد لعملية تمرير قيمة المتغير : 


نستخدم 8/۸٥۴‏ إذا أردنا متابعة أية تغيير قد يحدث في قيمة المتغير بعد استدعاء المتغير من 


إجراء أو دالة معينة. 


نستخدم 8/۷۵1 إذا أردنا كتابة قيمة المتغير الأولية بدون الانتباه إلى التغييرات التي قد تحدث بعد 


خلاصة الفصل العاشر 
من اجل أن 


إنشاء وحدة برمجية 


Module 


Module 


Module —J| حذف‎ 


إضlفة Module‏ 
موجودة مسبقا إلى 


مشروعنا 


تعريف المتغيرات 


قم بالتالي 
اختر ۳٤٤ا [٥W‏ ل۸ في شریط الأدوات ثم اختر ٥اduہ۸‏ وأضفھا إلى 


مشروعك. أو من القائمة ۴٣٥٥٤٤‏ اختر eاModu Add‏ أو اختر Add‏ 


.Module رتèl‎ jî New Item 


قم باختيار ال عااله" في مستكشف المشروع وفي نافذة الخصائص وفي 
الخاصية ١€‏ قم بكتابة الإسم الجديد لل عاuله.‏ أو اختر ال 
eاNodu‏ في مستكشف المشرو ع ڌم ilقر Rename رjتèl, Right-CLiCK‏ 


ثم قم بكتابة الاسم الجديد. 


انقر بالماوس R3 -])1٤)‏ فوق ال عاuا "0d‏ في مستكشف المشروع تم 


.Exclude from Project رتخl‎ 


Module —JI ثم اختر‎ Add Existing Item اتر‎ Project ةnئأla من‎ 


الذي تريد إضافته ثم قم بإضافته للمشروع. 


المتغيرات العامة هي المتغيرات التي نحتاجها علة طول المشروع فإذا 


العامة (المتغير اث 
الموجودة بطول 
المشروع) 


الاد وال عامة 


ن 
معبنه 
د 


اعتبرنا بأن سنة إنشاء الشركة متغير زمني فقد يكون هذا المتغير هام جدأ لنا 
في أية نقطة من مراحل بناء المشروع ولذلك لابد من تعريفه مرة واحدة في 
المشروع بدلا من إضاعة الوقت وتعريفة عند كل إجراء على حدةء ولتعريف 
المتغيرات العامة بداخل الوحدات البرمجية ال كع اله" بين السطرين 
Module‏ و End Module‏ باستخدام الکلمة ان۴ کالتالي: 
Public TotalSale As Integer‏ 
الدالة العامة هي الدالة التي يمكن استخدامها في أي منطقة برمجية على طول 
المشروع ولإنشائھا لابد من کتابتھا بداخJ End ; Module jı Module‏ 
eاodu‏ ونكتب جميع أوامر |لدJIة End Function s FUNCti0 jı‏ 
كالتالي: 
Function HitRate (ByVal Hits As Short, ByVal _‏ 
Tries As Short) As String‏ 
Dim Percent As Single‏ 
Percent = Hits / Tries‏ 
Return Format(Percent, “0.0%”)‏ 
End Function‏ 
وللعلم الدوال المعرفة بداخل الوحدات البرمجية ال ع )لاله تعتبر دوال 
عامة بشكل افتراضي بدون الحاجة إلى كتابة كلمة cااbاں۴.‏ 


لاستدعاء إجراء معين موجود في دالة محددة نكثب اسم الدالة متبوعا 
بالمعاملات المتوفرة للدالة بداخل قوسين ونقوم بإسناد القيمة المتوقعة إلى 


إشاء إجراء عام 


ISE 


تمرير المعامل بالقيمة 
ByVal‏ 


تمرير المعامل بالمرجع 


lblRate. Text = HitRate (Wins, Spins) 
وكتابة معاملاتها بداخل‎ 11۸2٥ ففي المثال أعلاه قمنا باستدعاء الدالة‎ 
القوسين ومن ثم إسناد القيمة الناتجة إلى خاصية النص في صندوق النص‎ 


.lLblRate 


نقوم بتعريف هذا الإجراء بداخل وحدة برمجية الاله ونضع جميع 
الأوامر البرمجية التابعة للإجراء بین طلا؟ و طا E۸٩۵‏ . الإجراءات تعتبر 
عامة بمجرد تعريفها في ال كع اuاكه.‏ مثال للإجراء : 
Sub CostPluslInterest(ByVal Cost As Single,‏ 
ByRef Total As Single)‏ 
Cost = Cost * 1.05‏ 
Total = Int(Cost)‏ 
End Sub‏ 


فالإجراء ا5٥٣‏ ع†”اus‏ ا۴ 0st‏ يعتبر إجراء عام بمجرد تعريفة في 
.Module‏ 


ا اف راه ع ااا الخاد ا راء ون فن 
مثاJ‏ )l~تدeاl«ء‏ الإجرIl«ء :(CostPluslnterest‏ 
CostPluslInterest(Price, TotalPrice)‏ 
نستخدم الكلمة 8/۷21 عند تعريف المتغير في الإجراء أو الدالة كالمثال: 
Sub GreetPerson(ByVal Name As String)‏ 


نستخدم الكلمة 8/۸۴۴ عند تعريف المتغير في الإجراء أو الدالة كالمثال: 


الفصل الحادي عشر: استخدام المصفوفات للتعامل مع البيانات الرقمية والنصية. 


كما تعلمنا في الفصول الدراسية في المرحلة الثانوية (لمن يتذكر) المصفوفات بأنها الطريقة الأمثل 
للتعامل مع كمية كبيره من البيانات المتشابهة. أما برمجيا فنعلم بأن البرامج تعتمد بشكل أساسي 
على البيانات والمدخلات وتقوم البرامج بالتعامل مع هذه البيانات وتحليلها بحسب البرمجة المسبقة 
لهذه البرامج. وعند التعامل مع البيانات في فيجوال بيسك تعلمنا كيف نقوم باستخدام المتغيرات 
لحفظ هذه البيانات في متغيرات ثم تحويل أو إسناد قيمة هذه المتغيرات إلى خاصية معينة في 
صندوق نص أو غيره» لكن عندما يكون لدينا العديد (الكثير) من البيانات المتشابهةء فلابد لنا من 
استخدام المصفوفات للتعامل مع هذه البيانات وللعلم توجد المصفوفات في معظم أو في كل لغات 
البرمجة للتعامل مع البيانات فإذا كان لدينا مصفوفة فيها ثلاثة أعمدة وثلاثة صفوف فنستطيع 
استخدامها للتعامل مع تسعة من البيانات المتشابهة. 

إنشاء المصفوفات: 

لابد هنا أن نعلم بأنه عند كتابة المصفوفة في مكان ما فإن هذا المكان يحدد لنا نطاق استعمال 
المصفوفةء فمثلاً عند كتابة المصفوفة في داخل إجراء أو حدث معين فإننا نستخدم المصفوفة في 
داخل ذلك الإجراء فقط أما إذا قمنا بكتابة المصفوفة في بداية الفورم (أعلى منطقة الكود في 
الفورم) فإن المصفوفة يمكن استخدامها على طول الكود في الفورم» وفي حالة كتابة المصفوفة 
بداخل وحدة برمجية €) لال0" فنستطيع استخدام المصفوفة في أي مكان في المشروع. وعند 
إنشاء أي مصفوفة فأنت باختصار تجيب عن هذه أو توضح المعلومات التالية عند تعريف 
المصفوفة: 


Sub GreetPerson(ByRef Name As String) ByRef 


٠‏ اسم المصفوفة: اسم المصفوفة هو الاسم الذي ستستخدمه لاستدعاء مصفوفتك في أي مكان في 
الكود واسم المصفوفة لابد أن يخضع لنفس الشروط اللازمة لاسم المتغير. راجع شروط كتابة اسم 
للمتغير والتي تعلمناها في الفصل الخامس. 


٠‏ نوع البيانات: لابد لنا من تحديد نوعية البيانات التي سوف يتم تسجيلها في المصفوفة وفي أغلب 
الحالات تكون هذه البيانات من نوع واحد (كلها نصية أو كلها وقتية أو كلها رقمية) ونادراً ما 
تكون أكثر من نوع. لابد لك من تحديد نوعية البيانات داخل المصفوفة لتحصل على التعامل الأمثل 
للبيانات من قبل بيئة التطوير أما إذا لم تعرف نوعية البيانات التي سوف تستخدمها بداخل 
المصفوفة أو كان هناك أكثر من نوع من أنواع البيانات فلابد لك إذا من استخدام النو ع ا٤‏ #ز0b‏ 
للتعبير عن البيانات. 


٠‏ أبعاد المصفوفة: لابد لك من تحديد مقاسات أو أبعاد المصفوفة فهناك مصفوفات ذات بعد واحد 
(مثل قائمة من البيانات) وهناك ذات بعدين (مثل جدول من البيانات) وهناك مصفوفات بثلاثة أبعاد 


للمصفوفات والتي تعالج مجموعة كبيرة ومعقدة ومتداخلة من البيانات. 


٠‏ عناصر المصفوفة: عناصر المصفوفة أو عدد عناصر المصفوفة هو عدد العناصر التي ستتعامل 
معها بداخل المصفوفة وهذه العناصر تطابق عدد العناصر في القائمة التي ترتبها المصفوفة ولابد 
أن يبدأ الترتيب من الرقم 0 في فيجوال بيسك 2008. فإذا كان عدد العناصر تسعة فإن بيئة 
التطوير ترتبهم في قائمة من 0 إلى 8» حيث يأخذ العنصر الأول الترتيب صفر والعنصر الثاني 
الترتيب واحد وهكذا. 


ملاحظة: المصفوفة التي تحتوي على عدد تابت ومحدد من العناصر تسمى المصفوفة الثابتة 
array‏ S1ze-dع×۴‏ والمصفوفة التي تحتوي على عدد متغير من العناصر كتلك التي يتغير عدد 
عناصرها في وقت تشغيل البرنامج بسبب البيانات التي تتعامل معها تسمى المصفوفة المتغيرة أو 
المصفوفة التفاعلية ¥ه٣a۲‏ ٤2۳1"ر0.‏ 


Fixed Size array تڊli تعريف مصفوفة‎ 


القاعدة العامة لتعريف المصفوفات الثابتة كالتالي: 


Dim ArrayName (Dim1Index, Dim2Index, ...) As DataType 
الكلمة التي تستخدم لتعريف المصفوفة ونستخدم كلمة >اطنا۴ بدلا عنها إذا كانت‎ 7 
اسم المصفوفة التي نريد تعريفهاء‎ "0d uاع. المصفوفة بداخل وحدة برمجية 2۳8ل ه۸۲۲‎ 
امرف ناقضا مقة 1 (ن فل ارفاك ا من ضر ول من وزاك آنا‎ 
المصفوفة في البعد الثاني ناقصا منه واحد. ونستطيع إضافة أبعاد جديدة بفصل كل بعد عن الآخر‎ 
بفاصلة. ٥م01۷ نوعية بيانات المصفوفة (نصية»ء وقتيةء رقميةء أو أخرى).‎ 
لنفرض أن لدينا عشرة موظفين ونريد أن نعرف مصفوفة لتحتوى هؤلاء الموظفين فإن طريقة‎ 
تعريف المصفوفة سيكون كالتالي: سنفترض بأن اسم المصفوفة #5عرهام"E وبما أن عدد‎ 
الموظفين عشرة فسيكون ×عل١11" 01 عدده تسعة (1-10). سيكون الكود كالتالي:‎ 
Dim Employees(9) As String 
أما إذا عرفنا المصفوفة بداخل وحدة برمجية عالالN0 فسيكون التعريف كالتالي:‎ 
Public Employees(9) As String 
نستطيع كتابة نفس التعريف السابق بطريقة أخرى كالتالي:‎ 
Dim Employees(O To 9) As String 
بحيث نذكر بداية ونهاية المصفوفة وبما أن عدد الموظفين عشرة ولابد أن تبدأً المصفوفة من صفر‎ 
فسيكون التعريف كما هو مبين أعلاه. ملاحظة بأن هذه الطريقة من التعريف ليست مدعومة في‎ 
فيجوال بيسك 2002 و 2003 وهي مدعومة فقط في نسختي 2005 و 2008. وللتنبيه هنا‎ 
لمبرمجين فيجوال بيسك 6 بأننا الخيار الذي كان يسمح لك بجعل المصفوفة تبدأً من 1 أصبح غير‎ 
مدعوم حالياء بعبارة أخرى لابد أن يبدأ ترتيب عناصر المصفوفة من صفر وليس من واحد.‎ 


حجز الذاكرة لمصفوفة معينة: 


لهذه المصفوفة فمصفوفة الموظفين الموضحة أعلاه يقوم الكمبيوتر بحجز ذاكرة لها كالتالي: 


Employees 


لاحظ كيف يبدأ الكمبيوتر بترتيب الموظفين العشرة من صفر إلى تسعة. هذا في المصفوفة ذات 
البعد الواحد فكيف تتم العملية إذا كان لدينا مصفوفة ذات بعدين ولنفرض أننا نريد مصفوفة تحتوي 
على جدول لنتيجة مباراة كرة السلة وكما نعرف أن عدد مراحل المباراة تسع ويوجد لدينا فريقين 
فلابد من تصميم مصفوفة تحتوي على صفين وتسعة أعمدة فنكتب الأمر التالي: 
Dim Scoreboard(1, 8) As Short‏ 

جميل أن نتذكر بأن المصفوفة تبداً من الصفرء بحيث يمكننا استخدام الأمر التالي بدلا عن الأول: 

Dim Scoreboard(O To 1, O To 8) As Short 
الأمر أعلاه سينتج لنا هذه المصفوفة:‎ 


Scoreboard 
LolmMns 
O0 1 2 3 4 5 6 FT 8 


حيث لدينا صفين (الصف 0 والصف 1ء ولدينا تسعة أعمدة). 
التعامل مع عناصر المصفوفات: 
للتعامل مع عناصر المجموعات سواءأً أردنا الحصول على قيمة معينة تابعة لعنصر معين في 
المصفوفة أو تعبئة عنصر معين في المصفوفة بقيمة معينة فلا بد لنا من تحديد ترتيب العنصر في 
المصفوفة ثم كتابة قيمته ليتم تعبئتها مثلا المصفوفة التابعة للموظفين والتي استخدمناها سابقا 
لإضافة اسم للموظف السادس ولنفرض بأن اسم الموظف ه )ء1 نكتب الكود التالي: 

Employees(5) = "Leslie" 
فسيتم تعبئة المصفوفة بذلك الاسم كالتالي:‎ 


Employees 


ت 


5 j Leslie 


9 


وماذا سيحدث إذا أردنا تعبئة بيانات مصفوفة ذات بعدين مثل مصفوفة 5٤-0۲۴503۲١‏ التي 
عرفناها سابقاء بالطبع نستخدم نفس الطريقة لتعبئة عناصر المصفوفة بالقيم أو لسحب قيمة عنصر 
معين» لنفرض بأننا نريد تعبئة العنصر الثالث في الصف الأول بالقيمة 4» نكتب الكود التالي: 


Scoreboard(0, 2) = 4‏ 
فسیتم تعبئة المصفوفة كالتالي: 


Scoreboard 


LolumMnS 


Rows 


تستطيع استخدام هذه الطريقة في تعبئة القيم أو في الحصول على قيم من داخل عناصر المصفوفة. 
تصميم مصفوفة لخزن درجة الحرارة لأيام الأسبوع: 

بتعبئتھا باستخدام صندوق الإدخال |٣۷ 8B0×‏ والتعامل معھا باستخدام ۴o۲ Nex» 100p‏ التي 
تعلمناها في الفصل السابع من هذا الكتاب. نستخدم طريقة ٥٥ا ۴٥٣ ٥×‏ للتعامل مع كل 
بند من بنود المصفوفة على حده إذا استلزم الأمر. ونقوم بعرض عناصر المصفوفة بداخل صندوق 
بداية ونهاية المصفوف: Lbound and Ubound‏ 

نستطيع تحديد تسلسل أعلى قيمة في المصفوفة وتسلسل أقل قيمة في المصفوفة بواسطة الدوال 
boundل‏ و 0un4طاء‏ حيث هذه الدوال كانت متوفرة في النسخ القديمة من فيجوال بيسك حيث 
4ا 1 ترمز لتسلسل أقل قيمة في المصفوفةء وكما هو معروف بأن المصفوفات في فيجوال 
بيسك 2008 تبدأً من التسلسل صفر فإن الدالة ١٩01ا‏ سترجع لنا القيمة صفر» أما 

4ط فترجع لنا تسلسل أعلى قيمة في المصفوفة فإذا كانت المصفوفة ذات عشرة عناصر 
فإن الدالة ٣١‏ اهلا سترجع القيمة 9 لنا لإن التسلسل يبدا من الرقم 0 كما ذكرنا سابقا. 

الآن نتابع تصميم مصفوفة لخزن درجة حرارة أيام الأسبوع: 

.My Fixed Array مسlب نقوم بفتح بيئة التطوير وننشىیء مشرو ع جديد‎ .١ 


۲. نضيف صندوق نصي إلى الفورم. 


۳. نعدل الخاصية ٣٥‏ 1ااخ )ا التابعة لصندوق النص إلى ٥١ا۲۲‏ لتسمح لنا بكتابة العديد من 
الأسطر بداخل صندوق النص. 


ن نقوم بتعديل صندوق النص وتكبيره ليغطي معظم مساحة الفورم. 
ه. نضيف إثنين أزرار إلى الفورم تحت صندوق النص. 


“. نعدل بعص الخصائص للمكونات على الفورم كالتالي: 


TextBox1 Scrollbars Vertical 

الخال خرخات اضر ار Button1 Text‏ 
اشكر اض در حات السرا ButtonZ Text‏ 
"مصفوفة ثابتة“ Form1 Text‏ 


ستكون الفورم كما في الشكل التالي: 
ا ت )ا ك | مصفوفة نابتة 


إدخاله حرجات الحرارة إسععراض خرجات الحرارة | 


الفورم» لذلك نضع التعريف في بداية الفورم وتحت ۴0۲۳١1‏ ككهاح عتاطاں۴ مباشرةء 


وسيكون التعريف كالتالي: 

Dim Temperatures(O To 6) As Single 

الكود أعلاه يعرف لنا مصفوفة من سبعه عناصر (من الصفر إلى الستة) ويحدد نوع 
عناصر ها بالنوع Single‏ ومنعاه رقم حقيقي . 


۸. نفتح الفورم ثم نقوم بالضغط )٤1)٣-عاطداه0‏ على الزر "إدخال درجات الحرارة" ونكتب 


الكود التالي في الإجراء ٤ا٤‏ الخاص بالزر: 


Dim Prompt, Title As String 
Dim i As Short 
Prompt = ".لليوم حرارة درجة أعلى بإدخال قم"‎ 
For i = 0 To UBound(Temperatures) 
Title = اليو"‎ " & )¡ + 1( 
Temperatures(i) = InputBox(Prompt, Title) 


Next 


.٩‏ نلاحظ أننا في الكود أعلاه استخدمنا التعبير ۴١١... ٥×٤‏ لنبدأً من الصفر إلى أعلى تسلسل 


: في المصفوفة كعu۲ة۲ع#م"۲۴۳. فكان باستطاعتنا كتابة الكود‎ Bound 
For i = 0 To 6 


دلا من ١‏ الو ام الد ا كانت ال ف ف كو و هة عاط ها او ف ت 
بع من 1 وتزيد عناصرها او فد تصغر 


وتقل عناصر ها فمن الأفضل استخدام ١801ل‏ لمعرفة آخر تسلسل في المصفوفة. 


نفتح الفورم ثم نقوم بالضغط )٤1)٤-ع)طبام0‏ على الزر "استعراض درجات الحرارة" ونكتب 


الكود التالي في حدت )٤ا‏ التابع للزر: 
Dim Result As String‏ 


Dim i As Short 
Dim Total As Single = 0 


Resul = ":الأسبوع خلال الحرارة درجات أعلى"‎ & VC & vbCrLf 
For i = 0 To UBound(Temperatures) 
Result = Result & "agıll " & (i + 1) & vbTab & _ 
Temperatures(i) & vbCrLf 


Total = Total + Temperatures(i) 
Next 
Result = Result & vbCrLf & _ 
:الحرارة درجة متوسط"‎ " & ۴ormat)ا‎ ota) / 7, "0.0"( 
TextBox1.Text = Result 
وتبدأً ھذە‎ For | = 0 o UBound (Tempera † ur e5( الكود أعلاه يستخدم الحلقة التكر ارية‎ 
الحلقة من صفر إلى أعلى قيمة في المصفوفة ليأخذ درجة الحرارة المخزنة في المصفوفة عن كل‎ 
طبعاً بعد كل درجة حرارة عن كل يوم سيضعها‎ »٦۴×80×1 يوم ووضعها في صندوق النص‎ 
الموجودة في الكيبورد أما‎ ٦3 في صندوق النص كتبنا ۷5۲ وهذا يجعل البرنامج يقفز القفزة‎ 
فينقلنا إلى السطر التالي.‎ ۷)۴ 
يقوم البرنامج بحساب متوسك درجة الحرارة ويضعها في سطر جديد بواسطة الكود:‎ 
:الحرارة درجة متوسط"‎ " & ۴ormat)ا‎ ota) / 7, "0.0"( 
الذي يقوم بقسمة إجمالي درجات الحرارة للأسبوع على الرقم ۷. ويضعها على هيئة "0.0" أي‎ 
رقم وبعده فاصلةء نستطيع زيادة الأصفار بعد الفاصلة لنحصل على أرقام دقيقة لكننا لا نحتاج‎ 
لمثل هذا الإحصاءات الدقيقة لإننا نحتاج لمعرفة درجة الحرارة لکن اذا کان لدينا أرقام حساسة‎ 
للكسور بعد الفاصلة فيمكننا تكثير الأصفار بعد الفاصلة.‎ 


ملاحظة: المثال موجود بالمرفقات بالرقم ..۳١‏ 


Fixed Dynamic array ةılelت تعريف مصفوفة‎ 


تعرفنا في المثال السابق على تصميم المصفوفة الثابتة (المصفوفة المعلوم عدد عناصرها) وتعلمنا 
كيف نستفيد منها في التعامل مع كمية كبيرة من البيانات أو مع قائمة من البيانات» خاصة عند 
استخدام الحلقات التكرارية معهاء في الحقيقة قد لا نعرف عدد العناصر التي سنتعامل معها خلال 
فترة عمل التطبيق أو البرنامح ١1 ٠٣۴(‏ ۸1) في مثل هذه الحالة لا يمكننا استخدام المصفوفات 
الثابتة لإننا لا نعرف عدد عناصرالمصفوفة وعليه فقد وفرت لنا بيئة التطوير نوع من المصفوفات 
وهي المصفوفات المتغيرة أو المصفوفات التفاعلية. هذا النوع من المصفوفات لا يحتاج لتحديد 
عدد عناصر المصفوفة في مرحلة الكود وإنما في مرحلة تشغيل البرنامج Uu ١)1"‏ ۸. 


ولتعريف مصفوفة تفاعلية نقوم بتحديد أسم ونوع المصفوفة في مرحلة الكود وبدون ذكر عدد 
العناصر للمصفوفةء فمثلاً إذا كان لدينا مصفوفة لدرجات الحرارة باسم ۳8۳۸۵۲۵٤۲۵۶‏ نقوم 
بتعريفها كالتالي: 
Dim Temperatures() As Single‏ 
بدون ذكر عدد عناصرها في مرحلة الكود. بعد كود تعريف المصفوفة نقوم بكتابة كود آخر يسمح 
للمستخدم بكتابة عدد عناصر المصفوفة في مرحلة تشغيل البرنامج ٣٥‏ 1١۸۷ء‏ بطريقة أو بأخرى 
يمكننا السماح للمستخدم بكتابة عدد عناصر المصفوفة باستخدام الكود بدون كتابة عدد العناصر في 
مرحلة الكود وإنما إسناد العدد إلى متغير معين ويقوم مستخدم البرنامج بتعبئة هذا المتغير كالتالي: 
Dim Days As Short‏ 
("كم عدد الأيام؟' قم بإنشاء المصفوفة")pUt80X¬|‏ = Days‏ 


المتغير لأيام المصفوفة هنا هو 03¥ وسيقوم المستخدم بتعبئة قيمة المتغير بكتابة عدد الأيام 
بداخل صندوق الإدخال الذي سيظهر . بعد هذا سنقوم بإعادة تعريف المصفوفة (إنتبه لكلمة إعادة) 
لنحدد عدد عناصرها بحسب ما أدخل المستخدم كالتالي: 

ReDim Temperatures(Days - 1)‏ 
الكلمة ۸۴01۳ معناها أعد تعريف» ولكن قد تتساءل لماذا عرفنا المصفوفة بأقل من عدد الأيام 
المدخلة من قبل المستخدم برقم واحد حيث كتبنا في الكود 1 - كله( التفسير لهذه النقطة يعيدنا 
إلى تعريف المصفوفات الذي درستا عنه سابقا حيث أن كل مصفوفة يجب أن تيدأ من الصفر 


لنفرض بأن عدد العناصر ۷ فإن المصفوفة ستبداً بالصفر وستنتهي بالرقم ٦‏ ليكون عدد العناصر 
سبعة» أعد قراءة الجملة مرة ثانية لتعرف أكثر . 
ملاحظة هامة: إذا كنا قد عرفنا المصفوفة وذكرنا عدد عناصرها فلا يمكننا إستخدام R٥01‏ 
وللفائدة عند التعامل مع المصفوفات التفاعلية نستخدم ل٣‏ ں080 للتعامل مع آخر تسلسل في 
For i = 0 to UBound(Temperatures)‏ 
Temperatures(i) = InputBox(Prompt, Title)‏ 


Next 
مثال على تصميم المصفوفات التفاعلية:‎ 
في هذا المتال سنقوم بالتعديل على المثال الذي ا في تصميم المصفوفات الثابتةء لنعدل‎ 
ونقوم‎ ٠۳۲ المصفوفة إلى مصفوفة تفاعلية كالتالي: نفتح المثال السابق الموجود في المرفقات برقم‎ 
بالتالي:‎ 
بفتح المشروع ونذهب إلى منطقة الكود وفي أعلى منطقة الكود بالذات نحذف عدد‎ موقن-١‎ 
وبهڏا تتحول المصفوفة مباشرة إلى‎ ٣ To عناصر المصفوفة الذى کتبناه وهو :ُه‎ 
مصفوفة تفاعلية (متغيرة) وستكون الجملة البرمجية كالتالي:‎ 
Dim Temperatures() As Single 
ليقوم بحفظ عدد الأيام (عدد عناصر المصفوفة) ونقوم بكتابة‎ 0۷S بتعريف المتغير‎ موقن-٣‎ 
التعريف تحت جملة تعريف المصفوفة السابقة كالتالي:‎ 
Dim Days As Integer 
ونضيف الكود التالي (الكود‎ 810١1 قليلا بالماو إلى الحدث ءا التابع للزر‎ لزنن-٣‎ 
المضلل باللون الأصفر) كالتالي:‎ 


Dim Prompt, Title As String 
Dim i As Short 
P۲0٥ p٤".مویلل "قم بإدخال أعلى درجة حرارة‎ = 
('"كم عدد الأيام؟"» "قم بإنشاء المصفوفة" )×80 م"| = كج0‎ 
If Days > O Then ReDim Temperatures(Days - 1( 
For i = 0 To UBound(Temperatures( 
Title) & " "الوم‎ = ¡ + 1) 
Temperatures(i) = InputBox(Prompt, Title( 
Next 
السطر الرابع في الكود أعلاه يظهر للمستخدم صندق إدخال ليسمح له بكتابة عدد الأيام (عدد‎ 
عناصر المصفوفة) أما السطر الخامس فيقوم بالتأكد من أن العدد المّدخل أكبر من صفر لإن‎ 
١ تعريف المصفوفة التي عدد عناصر أقل من صفر يتسبب في ظهور خطأ. ولأننا سنقوم بطرح‎ 
UBound من العدد فلابد أن يكون الرقم المّدخل آكبر من صفر. للتذکیر فقط لا نحتاج لاستخدام‎ 
لإنها مُستخدمه من سابق.‎ 
في الكود إلى الحدث ءا التابع للزر 02ا8 وقم بتعديل الكود حتى يظهر‎ بهذن-٤‎ 
كما الكود التالي: (الكود باللون الأصفر هو الكود المعدل)‎ 
Dim Result As String 
Dim i As Short 
Dim Total As Single = 0 


Resul = ":أعلى درجات رار‎ & vbCrLf & vbCrLf 
For i = 0 To UBound(Temperatures) 
Result = Result & "agıll " & (i + 1) & vbTab & _ 
Temperatures(i) & vbCrLf 


Total = Total + Temperatures(i) 
Next 
Result = Result & vbCrLf & _ 


۴ormat)T otal / Days, "0.0")‏ € " :متوسط درجة الحرارة" 
TextBox1.Text = Result‏ 
تم تعديل الكود أعلاه ليناسب المصفوفة التفاعليةء وتم تغيير النص الذي يظهر وحذف كلمة الأسبوع 
منه لإننا لا نعرف هل عدد الأيام سبع أو غير ذلك وكذلك تم تغيير طريقة الحصول على المتوسط 
فبدلا من القسمة على الرقم ۷ حل المتغير sلإه0‏ بدل الرقم لتتم القسمة على عدد الأيام» وهذا 
- نفتح نافذة تصميم الفورم ثم نغير الخاصية )×1 للفورم من " مصفوفة ثابتة" إلى 'مصفوفة 
تفاعاية" 
-١‏ الآن انتهينا من تصميم تطبيق المصفوفة التفاعلية نقوم الآن بحفظ التطبيق وتجربته» للعلم 
توجد نسخة من التطبيق في المجلد رقم ٠٠۳‏ ضمن المرفقات. 
تغيير طول المصفوفة مع المحافظة على عناصرها 
هناك ملاحظة بأنه عند استخدام ۸۵01 ولإعادة تعريف مصفوفة تفاعلية فإن جميع عناصرها 
المكرنة فيها تفقك ولا يمكن استرجاعهاء وإذا ردنا تكبين أو تيبر المصفرفة مع المحاقظة على 
عناصر ها فنستخدم الكلمة ۴۲۴5٥۴۲۷۵‏ بعد "۸۴01۳ كالتالي: إذا كان لدينا مصفوفة باسم 
۸6 فنقوم بتغيير طولها مع الحفاظ على عناصرها كالتالي: 
ReDim Preserve Authors(Dim1Elements, Dim2Elements, ...)‏ 
هناك ملاحظة بأننا نستطيع فقط تغيير آخر بعد في المصفوفةء فمثلاً المصفوفة ذات البعد الواحد 
نستطيع تغيير عدد عناصرها والمصفوفة ذات بعدين نستطيع تغيير عدد عناصر البعد الثاني فقطء 
أما المصفوفة ذات الثلاثة أبعاد فإننا نستطيع تغيير عدد العناصر للبعد الثالث فقط. 


دعونا الآن لنتخيل المصفوفة ذات البعد الواحد وذات البعدين وذات الثلاثة أبعاد بالرسم: 


او ا اك وبك جا 


وهذا الشكل لمصفوفة ذات بعدين وبخمسة عناصر للبعد الأول وخمسة للبعد الثاني: 


أما هذا الشكل فيعبر عن مصفوفة ذات ثلاثة أبعاد وفي كل بعد خمسة عناصر: 


الأشكال أعلاه ستساعدك على فهم عملية تمثيل المصفوفات في ذاكرة الكمبيوتر وكيف يتعامل 
البرنامج معها. 


خطوة إضافية: التعامل مع المصفوفات الكبيرة باستخدام الطرق كلهم" في كلاس 
المصفوفات المتوفرة ضمن بيئة التطوير: 

تعلمنا في هذا الفصل كيف نصمم المصفوفات وكيف تتعامل هذه المصفوفة مع البيانات وكيف تقوم 
بتخزينهاء في هذه الخطوة سنتعلم أكثر عن الطرق المتوفرة ضمن بيئة التطوير والتي تساعدنا على 
التعامل الأمثل مع البيانات الموجودة بداخل المصفوفةء حيث توفر لنا بيئة التطوير العديد من 
المميزات التي يمكن أن نستخدمها في التعامل مع البيانات الموجودة بداخل المصفوفة فيمكننا البحث 
بداخل البيانات ترتيب البيانات عكس الترتيب وتنفيذ مهام أخرى. 


في بيئة التطوير إختر ا٣عزه۴۲‏ ١6ص0‏ تم قم بفتح المشروع الموجود ضمن المرفق في مجلد 
رقم T٤‏ بعد فتح البرنامج ستظهر لك فورم مثل هذه: 


لاحظ أسفل الفورم» حيث شريط التطور ويعرض لك هذا الشريط نسبة ما قد تم إنجازة من العملية 
ونسبة المتبقي. بواسطة إظهار مستطيلات خضراء في المسار الأبيض وعندما يمتلئ الفراغ 
الأبيض بالمستطيلات فهذا يعني إكتمال العملية. يسمى هذا الشريط 53۲ ككع۲كه۴۲ ونلاحظ هذا 
الشريط كثيرا عند تنزيل البرامج» الآن نستطيع إضافة مثل هذا الشريط إلى برامجنا. هناك 
خاصيتين هامتين لهذا الشريط وهما ۳ 1ا "8×1۳" وتعني القيمة العليا و 1۳" ۸1٣1‏ القيمة الدنيا 
ويتم ملئ الشريط بالإعتماد على هاتين القيمتين ويمكننا التحكم بهما في مرحلة الكود. 
نذهب الآن إلى مرحلة الكود الموجود ضمن التطبيق المرفق وفي أول منطقة الكود نلاحظ بأننا 
قمنا بتعريف مصفوفة ثابتة ۸4۸0۸۲٣١۵7‏ ذات ٠٠١‏ عنصر بالكود: 
Dim RandArray(O To 499) As Long‏ 
وفي حدث ه٥1‏ التابع ل ۴١۳۳1‏ قمنا بتحديد قيمة الخاصيتين Maximum‏ ڍڪ Minimum‏ 
التابعة للشريط ۴۲١3۲۴5563۲1‏ بالكود التالي: 
ProgressBar1.Minimum = 0‏ 
ProgressBar1.Maximum = UBound(RandArray)‏ 
أما في الحدث ۸٤ا‏ التابع للزر 'تعبئة" 1١0لا8‏ فإن الكود الموجود فيه يقوم بتوليد أرقام 
عشوائية تبداً من الواحد وتنتهي عند المائة ألف وتعبئتها في المصفوفة ثم عرض عناصر 


المصفوفة في مربع النص وقد مرت علينا طريقة توليد الأرقام العشوائية في بداية هذا الكتاب (هل 
تتذكر كتابة برنامجك الأول) عند تطبيق الرقم المحظوظ الموجود في المرفق رقم ٠٠۲‏ فلا داعي 
لذكر الطريقة مرة ثانية. 
أما بالنسبة للكود الخاص بترتيب عناصر المصفوفة فيقوم هذا الكود أولا بتفريغ صندوق النص من 
محتواه ولإن المصفوفة محفوظة في الذاكرة أصلا نقوم بترتيب عناصرها بالكود: 
Array.Sort(RandArray)‏ 
المصفوفة بطريقة عكسية (راجع الكود). حيث استخدمنا: 
Array.Reverse(RandArray)‏ 
بعد بتنفيذ التطبية وقم با و ر على الزر 'تعبئة" ثم الاوران 'ترتیب" و "< تر تیب" وا و 
عناصر المصفوفة لا يقوم برتيب عناصر المصفوفة بشكل تنازلي وإنما يقوم بترتيبها عكس ما 
كانت مرتبة من قبل الضغط على الزر فإذا كانت عناصر المصفوفة مرتبة تنازليا بعد إستخدام 
الأمر .S0۲K)۸70۸۲۲۵¥(‏ ۷ه فيقوم بترتيبها تصاعديا والعكس» أما إذا كانت المصفوفة 
غير مرتبة أصلا فيقوم الزر 'عكس ترتيب" بترتيبها بشكل عكسي بأن يجعل آخر عنصر فيها أول 
عند تنفيذ البرنامج والضغط على أزرار التطبيق سنلاحظ بعض البطء في تنفيذ الأوامر وذلك 
بسبب أننا نقوم بتعبئة صندوق النص كل مرة يقوم فيها البرنامج بإضافة عنصر إلى المصفوفة 
وعند كل مرة يقوم البرنامج بترتيب عنصر أو بعكس الترتيب. 
إذا أردنا أن نغير عدد عناصر المصفوفة وجعلها مصفوفة ب ٠٠٠١‏ عنصر لملاحظة دقيقة 
لشریط التطور ۴۲٥4۲۴۶58۵۲1‏ نذهب إلى أعلى الكود ونكتب : 
Dim RandArray(O To 2999) As Long‏ 


بدلا من الكود الموجود مسبقا وبعد تنفيذ البرنامج سنلاحظ أن شريط التطور أبطاً أكثر هذه المرة 
بسبب كثرة عناصر المصفوفة التي يقوم بإضافة كل عنصر جديد منها إلى صندوق النص» وكما 
قلنا سابقا بأن التأخير هو بسبب تعبئة صندوق النص ثم إعادة تعبئته كل مرة نضيف فيها عنصر 
جديد للمصفوفة وبإمكاننا تكبير المصفوفة بتعديل الكود الموجود في أعلى منطقة الكود لعدد 
عناصر المصفوفة ولاخوف على بقية الكود لإننا نستخدم ١601ل‏ في بقية مراحل الكود» لكن 
إذا زدنا عناصر المصفوفة إلى رقم معين لايمكن أن يتحمل ذلك صندوق النص ٦۵×80×‏ بسبب 
قدر اته المحدودة ويمكننا إستخدام R1 ۸١۵×80×‏ بدلا عنه. ولمعرفة السرغعة الحقيقية التي يقوم 
بها البرنامج بتعبئة عناصر المصفوفة وكذالك بترتيب وعكس ترتيب عناصر المصفوفة نقوم 
بإضافة البادئة “ التي تقوم بإلغاء الكود التي كتبناه فيما بعدها بنفس السطر» نقوم بإضافة تلك 
البادئة إلى الكود الذي يأمر البرنامج بكتابة أو بترتيب أو عكس ترتيب عناصر المصفوفة وإضافتها 
إلى صندوق النص وبالتحديد إلى الأسطر التي تبداً ب ٣٠۴×80×1‏ وبعد إضافة تلك البادئة إلى 
الثلاثة الأسطر الموجودة في الكود ثم تنفيذ البرنامج سنلاحظ السرعة الكبيرة التي يتم فيها تعبئة 
عناصر المصفوفة وكذلك ترتيب وعكس الترتيب وذلك بملاحظة سرعة تحرك شريط ال 
ress8arيداP.‏ سنلاحظ أنه حتى إذا غيرنا عدد عناصر المصفوفة إلى مائة الف عنصر 
سنلاحظ أن التعبئة والترتيب لا تأخذ ثوان معدودة. 


خلاصة الفصل الحادي عشر 

من اجل أن قم بالتالي 

إنشاء مصفوفة نقوم بتعريف المصفوفة باستخدام الكلمة "01۳ كالتالي: 

Dim Employees(9) As String 
إنشاء مصفوفة عامة _ نعرفها بداخل وحدة برمجية عاuله بكتابة الكلمة اا۴ كالتالي:‎ 
Public Employees(9) As String 
Public Employees(0 to 9) As String إنشاء مصفوفة عامة مع‎ 


تحديد رقم أول عنصر طبعاً في فيجوال بيسك ۲٠٠۸‏ لابد أن تبداً المصفوفة من صفر ولكن مثل هذا 


اخل .ةة 


Enter ڍş‎ 1 ab إضافة‎ 


التعامل مع عناصر 


المصفوفة 


التوضيح يسهل عملية قراءة الكود لاحقا. مع العلم بأن هذه الطريقة غير 
مدعومة في نسختي الفيجوال بيسك ۲۰۰۲ و .٠٠٠۳‏ 
نحدد اسم المصفوفة وكذلك رقم العنصر بداخل المصفوفة ثم نكتب قيمة 
العنصر كالتالي: 

Employees(5) = "Leslie" 
للإنتقال إلى السطر التالي‎ E"6١ و ۲25 ط۷ لإضافة ال‎ V5) نستخدم ۴اا‎ 
وللإزاحة ا4ا.‎ 


المصفوفة التفاعلية هي المصفوفة التي نستطيع تغيير عدد عناصر وقت تنفيذ 
البرنامج ويمكننا تعريف هذه المصفوفة بتعريف مصفوفة بلشكل المعروف مع 
تحديد نوع عناصرها لكن مع عدم كتابة عدد العناصر» وإذا كانت المصفوفة 
ببعدين أو بثلاثة أبعاد فنكتب الفاصلة بداخل القوس بين كل بعد والآخر بدون 
كتابة عدد العناصر. تم نقوم بإعادة تعريف المصفوفة في مرحلة الكود وإسناد 
عدد العناصر إلى متغير يقوم المستخدم بتعبئته في مرحلة تشغيل البرنامج 
كالتالي: لنفرض بأن المتغير هو )4٣١‏ 
ReDim Temperatures(Cars)‏ 
نستخدم الحلقات التكرارية للتعامل مع عناصر المصفوفة كالتالي: 
Dim i As Short‏ 
Dim Total As Single‏ 
For i = 0 To UBound(Temperatures)‏ 


Total = Total + Temperatures(i) 


إعادة تعريف مصفوفة 
ا 
العناصر الموجودة فيها 


تغییر ترتیب عناصر 


المصفوفة 


لإعطاء المستخدم فكرة 
مرئية عن عملية 
برمجية خاصة في 
الحالات التي تأخذ وقت 


أطول 


الفصل الثاني عشر 


Next 
نستخدم الكلمة ۴۲۴56۲۷۴ بعد كلمة إعادة التعريف "۸۴01۳ كالتالي:‎ 


ReDim Preserve myCube (25, 25, 50) 


نستخدم الطرق كل۸6†۸0 الموجودة ضمن بيئة التطوير فمثلاً لترتيب 
عناصر مصفوفة اسمها #80۸۲۲١۵3‏ ترتيياً تصاعديا نكتب الكود التالي: 


Array.Sort(RandArray) 
ولعكس الترتيب نكتب الكود:‎ 
Array.Reverse(RandArray) 
في برنامجنا ليأخذ المستخدم فكرة‎ ۴۲١۲۴558۹١ نستخدم شريط التطور‎ 
ضمن الأدوات‎ ۴۲٥۹۲۴558۹۲ عن الوقت اللازم لتفيذ العملية سنجد ال‎ 
ونقوم بتحديد القيمة الدنيا‎ K0M M00١ 0/٣ا وبالتحدید تحت قائمة‎ 
والعليا له وكذلك تعبئة القيم من خلال الكود وغالباً ما نستخدم الحلقات‎ 


التكرارية للتعامل معه متل الحلقة خ×ع....۴0۲. 


التعامل مع المجوعات System.Collections ءlaأll Jiجمو Collections‏ 


أولاً لابد أن نعرف بأن ك١0أ†ءه‏ ااه هي عبارة عن مجموعة من الكائنات كأء#زطه التي 
والأزرار وغيرها. نحن عرفنا بأن بيئة التطوير تقوم بحفظ جميع الكائنات على الفورم مع الكود 
في ملف واحد ولكننا لم نعرف بأن بيئة التطوير تتعامل مع هذه الكائنات على أنها أعضاء في 


مجموعه واحدة وهي 0١ ٣هاك 0)) ٤10۸‏ والتي تعتبر جزء من مجال الأسماء 
ئ5اءeا)د. yt em‏ الذي يأتي ضمن الفريم وورك التابع لمجموعة التطوير. يتم إنشاء 
المجمو عاٽت System. ColleCti01S‏ ر بعد أن تقوم بإضافة فورم لبرنامجك وعندما 
تقوم باضافة كافناتا إلى الفرزم تكؤن هذه الكائنات جزءا من المجمو عات 
ئnەSystem.o)tecti.‏ وتقوم بيئة التطوير بالتعامل مع هذه المجموعات بنفس الطريقة التي 
تتعامل بها مع المصفوفات حيث أول عنصر فيها يبدأ من الصفر وهكذا. لماذا نريد أن نتعلم أكثر 
عن هذه المجموعات» لأننا نريد أن نتعلم كيف تتعامل بيئة التطوير مع الكائنات بداخل الفورم 
وكذلك نعرف أكثر إذا أردنا أن نضيف كائنات معينة (أزرار أو صناديق نص) إلى الفورم بواسطة 
الكود وبدون استخدام الطريقة البدائية. وتستطيع إستعراض الكائنات التي استخدمتها في برنامجك 
بواسطة هذه المجموعات وبدعم من بيئة التطوير. 


فهرسة الكائنات في المجوعات 


نستطيع فهرسة الكائنات في المجموعات K0)]۴٤10١‏ أو فهرسة عناصر هذه المجموعات 
بمعرفة رقم كل كائن في فهرس المجموعة وللعلم يقوم الفيجوال بيسك بعمل فهرس عكسي لكل 
كائن على الفورم فآخر كائن تمت إضافته إلى الفورم يعتبر العنصر رقم ٠‏ في مصفوفة مجموعة 
الكائنات. وعليه بمعرفة تسلسل إضافى الكائنات للفورم نستطيع فهرسة تلك الكائنات. ويمكننا بناء 
على ذلك كتابة أكواد لتغيير خواص هذه الكائنات وغيرها من الأكواد كالتالي: 

Controls(0). Text = "Business" 
(آخر كائن تمت إضافته إلى الفورم)‎ ٠ التابعة للكائن رقم‎ ٣٠×٤ فالكود أعلاه يقوم بتغيير الخاصية‎ 
إلى "كوع”أو8u"» طيب ماذا عن الكائن الذي تمت إضافته قبل الكائن الأخير يجب أن نعرف بأن‎ 
في فهرس مجموعة الكائنات أما الكائن الذي تم إضافته للفورم قبل قبل‎ ١ هذا الكائن يأخذ التسلسل‎ 
الأخير فيأخذ التسلسل ۲ وهكذا لجميع الكائنات على الفورم. ومن أجل هذا المنطق يجب أن نعرف‎ 
وتتغير بقية‎ ٠ بأنه في كل مرة نضيف كائنات جديدة للفورم فإن آخر كائن يأخذ التسلسل‎ 
التسلسلات برقم واحد في كل مرة نقوم بإضافة كائن جديد للفورم. نستطيع إظهار أسماء عناصر‎ 
المجموعة بواسطة كود الحلقة التكرارية التالي:‎ 


Dim i As Integer 


For i = O0 To 3 
MsgBox (Controls(i). Name) 


Next i 
للتعامل مع المجموعات‎ ۴٥٣ استخدام الحلقات التكرارية ا×٥.۸...۸٤ ع‎ 


نستطيع التعامل مع الكائنات بداخل المجموعات كل على حده ولكن من الأفضل التعامل معها 
جميعا باستخدام الحلقات التكرارية لإننا قد نحتاج إلى تغيير أسماء الكائنات أو إلى تحريك الكائنات 
على الفورم أو إلى ترتيب أو تغير الأبعاد بشكل دفعه واحدة. لتنفيذ مثل هذه الأوامر نستخدم حلقة 
تكرارية خاصة وهي ا×....۸٤ ۴٥۲ E3‏ للتعامل مع كل الكائنات بداخل المجموعة مرة واحدة. 
الحلقة التكرارية خ×ع....c۸ ۴o٣ ٤a‏ متل الحلقة المعروفة t×ع۴۲...N.‏ 


باستخدام الحلقة التكرارية ح×ه ۴٠١ ٤۵٤۸...‏ نستطيع تعديل خواص الكائنات الموجودة ضمن 
المجموعة متل إظهار أو إخفاء الكائنات وكذلك تفعيل أو إلغاء أو تحريك الكائنات أو إظهار قائمة 
بأسماء الكائنات وغيرها. 


مثال في التعامل مع الكائنات بدخل المجموعات: 
في هذا المثال سيكون معنا ثلاث كائنات علة الفورم (ثلاثة أزرار) سنتعلم كيفية التعامل مع كل 
هذه الأزرار سواءاً بتغيير النصوص المكتوبه عليها (تغيير الخاصية )١٠۴×٤‏ وتحريك هذه الكائنات 
على الفورم وكذلك التعامل مع أحد هذه الكائنات بشكل مستقل عن الباقين. 

١-قم‏ بإنشاء تطبيق جديد بواسطة الفيجوال بيسك وقم بتسميته My Controls‏ 


.Collection 


۲-قم بإضافة ثلاثة أزرار إلى الفورم زسيكون الفورم بهذا الشكل: 


EE Form1 E) 


Buttoni 


Buttonz 


Button 


۳- قم بتعديل الخاصية €" N‏ للزر الثالث .btnMoveObjects yJإ Butt0¬3‏ 
-٤‏ قم بكتابة الكود التالي في حدث )ءا التابع للزر 0۸1)) 6u‏ : 
For Each ctrl In Controls‏ 
"إنقر ctrl. Text = "lia‏ 
Next‏ 
الكود أعلاه يستخدم المتغير ٤)٣‏ في المجموعة كا٥٣ 0١٤‏ لتغيير الخاصية ۲٥×٤‏ لكل كائن 


علی الفورم إلی "إنقر هنا" ولتعریف المتغیر C٣1‏ نذھب إلى أعلى منطقة الکود تحت عن)اbں۴‏ 
۴1 sکھاC‏ ونکتب الکود : 


Dim ctrl As Control 


التعريف أعلاه سيسمح لنا باستخدام المتغير ٤٣1‏ على طول الفورم. الآن نقوم بتنفيذ البرنامج 
وننقر فوق الزر الأول (ماذا نلاحظ)ء مع العلم بأن تغيير الخاصية ٦۴×‏ يمون وقت تشغيل 


البرنامج فقط ولا يدوم هذا التغيير إلى بعد إغلاق البرنامج وإذا أردنا أن يستمر هذا التغيير 

فنستخدم قواعد البيانات لهذا الأمر وليس مجالنا الآن. 

: 6u )0۸2 التابع للزر‎ C)1٤) لتحريك الكائنات على الفورم نضيف هذا الكود للحدث‎ 
For Each ctrl In Controls 
ctrl.Left = ctrl. Left + 45 

Next 

الكود أعلاه يقوم بتحريك الكائنات على الفورم بمقدار ٠٥‏ نقطة ۴×61 إلى اليمين» إذا أردنا 

تحريك الكائنات إلى اليسار بمقدار 4° نقطة فإننا نطرح )3 (نستخدم إشارة الطرح - (. 

في فيجوال بيسك ٠‏ نستخدم ۲W1۴5‏ بدلا من النقطة ۴×٥1‏ لتحديد القياسات مع العلم بأن ال 

"M5‏ تساوي عشر النقطة. 


قم الآن بتشغيل البرنامج وإضغط على الزر الثاني و كرر الضغط (ماذا تلاحظ). 


ا لا تريد تحريك كل العناصر على الفورم مرة واحده وقد تحتاج تحريك كائن واحد فقط من 
A E ES‏ 


إستخدام الخاصية "۳٥‏ في الحلقة التكرارية For Each...Next‏ 


إذا اردنا التعامل مع عنصر أو أكثر من الكائنات الموجودة على الفورم بدون التأثير على بقية 
الكائنات فيمكننا الإستدلال على ذلك الكائن بالاسم حيث من المعروف لدينا بأن كل كائن على 
الفورم له اسم مختلف عن بقية الكائنات فيمكن استخدام هذا الاسم في مرحلة الكود ليتم التعامل معه 
فقط» اما إذا كان لدينا فرضا عشرات الكائنات على الفورم» لنفرض بانه لدينا ٠٠١‏ كائن على 
الفورم وأردنا تغيير خواص ٠١‏ فقط من هذه الكائنات فيمكننا الإستفادة من الخاصية ۵4 وإضافة 
كلمات دلالية لكل الكائنات المتشابهه في الخواص أو التي تندرج تحت مجموعة واحدة عند إرادة 
تغيير الخواص المراد تغييرهاء فيمكننا وضع ه1 واحد لهذه الكائنات ثم التعامل معها دفعة واحدة 


في مرحلة الكود. طبعا للتعامل مع الكائنات بالإستدلال بالاسم أو الكلمة الدلالية ٠۵4‏ لابد من 
استخدام أداة الشرط ۴| وإذا كان لدينا أكثر من شرطين يمكننا استخدام ٤456‏ ٤6ا٥5‏ » لنأخذ 
الآن تطبيق على استخدام اداة الشرط |١‏ وبدلالة الأسم ۳۴ا للتعامل مع الكائنات على الفورم 
على نفس المثال السابق (الموجود في المرفق :)٠٠١‏ 
نضغط )ء1)٣-هاطاه0‏ على الزر الثالث ثم نكتب الكود التالي في الحدث )ءا التابع للزر 
btnMoveObjects‏ : 
For Each ctrl In Controls‏ 
If ctrl.Name <> "btnMoveObjects" Then‏ 
ctrl.Left = ctrl. Left + <o‏ 
End If‏ 
Next‏ 
لاحظ بأننا استخدمنا اداة الشرط لتحديد أسم الكائن على الفورم فإذا لم يكن اسمه 
6ز tk nM0ve0b‏ فسيقوم البرنامج بنقله بمقدار ٠٥‏ نقطة. 
إنشاء المجموعات الخاصة بك Your Own Collections‏ 
كما أن الفيجوال بيسك ۲٠٠۸‏ يقوم بإنشاء المجموعات )0))۴٤†10١5‏ تلقائياً عند فتح الفورم 
وإضافة الكائنات له» تستطيع أنت أن تنشئ المجموعات الخاصة بك (ومافيش حد أحسن من حد) 
تستطيع إنشاء المجموعات التي تقوم بمتابعة البيانات في البرنامج والتعامل معها بشكل أوتوماتيكي 
وبالرغم من ان المجموعات تقوم بحفظ الكائنات تستطيع جعل مجموعاتك تحفظ الكائنات وكذلك 
القيم النصية والرقمية عند تنفيذ البرنامج. طبيعة هذه المجموعات هي نفس طبيعة المصفوفات التي 
تعرفنا عليها في الفصل السابق. 


تعريف مجموعة جديدة: 


يتم تعريف المجموعات الجديدة كأنها متغيرات جديدة في البرنامج» ويتم تحديد قدرات المجموعة 
التي قمت بتعريفها بمعرفة المكان الذي قمت بتعريف المجموعة فيهء فبإمكننا أن نقوم بتعريف هذه 


المجموعات في بداية الكود للفورم بعد ۴۲١۳1‏ ككها أاطنا۴ أو في أي مكان آخر» ومن 
الأفضل في بداية الفورم. مثال: 

Dim CollectionName As New Collection ()‏ 
Name‏ ectionا)دC‏ هو اسم المجموعة. أما إذا قمنا بتعريف المجموعة بداخل وحدة برمجية 
ماodu‏ فإننا نستخدم کلمة ان۴ بدلا عن "0[۳. بعد تعريف المجموعة نستخدم الطريقة 
4 لإضافة عناصر جديدة إلى المجموعة. ويمكننا التعاملم ع عناصر المجموعة بواسطة الحلقة 
التکرارıة For Each...Next‏ . 
سذأخذ مثال عن طريقة التعامل مع المجموعات التي نقوم بإنشائهاء في هذا المثال سنصمم تطبيق 
صغير يقوم بفتح وصلات لمواقع في الإنترنت وسنستخدم المجموعة التي سنعرفها لحفظ عناوين 
تلك المواقع التي زرناهاء مع ملاحظة أن التطبيق لن يقوم بتصفح الإنترنت وإنما سيقوم بتحميل 
عنوان صفحات الإنترنت للمتصفح الموجود في جهازنا. 
ننشئ تطبيق جديد بواسطة الفيجوال بيسك ۲۰۰۸ باسم 10۸٤ع‏ )ا)ه€ اRل‏ ل بعد فتح الفورم 
نقوم بإضافة صندوق نص وإثنين أزرار وتعديل الخواص لتكون الفورم كما في هذا الشكل: 


HE] Form1 


http iffy ,Yb4arab ,corny 


ثم نقوم بتعريف مجمو عتتا الجديدة في أعلى منطقة الكود في الفورم تحٽ Public Class‏ 
۴1 کالتالي: 


Dim URLsVisited As New Collection ()‏ 
نضيف هذا الكود لزر 'زيارة الصفحة': 
URLsVisited.Add(TextBox1. Text)‏ 
System. Diagnostics.Process.Start(TextBox1. Text)‏ 
الكود أعلاه يقوم بإضافة الوصلة المكتوبة في صندوق النص إلى مجموعة Iنف— URLsVisited‏ 
وفي نفس الوقت يقوم بفتح الوصلة» وبعد كتابة العديد من الوصلات يقوم البرنامج بتسجيل 
الوصلات التي زرناها ويقوم بفتحها في المتصفح الموجود في جهازنا في نفس الوقت. لكن كيف 
نستعرض الوصلات المخزونة في المجموعة ك١ع)آءآ۷ء]۸Rلاء‏ نستعرض الحدثٿث )ء1) التابع 
للزر قائمة بالمواقع" ثم نكتب هذا الكود: 
Dim URLName As String = "", AlURLSs As String ="‏ 
For Each URLName In URLsVisited‏ 
ALUURLSs = AUURLs & URLName & vbCrLf‏ 
Next URLName‏ 
("الوصلات التي MsgBox(ALLURLs, MsgBoxStyle.Information, "Iqھتفڊ lin‏ 
الكود أعلاه يقوم بإسناد الوصلات إلى متغير ٥۸1۳لا‏ والذي بدورة ينقل هذه الوصلات 
جميعها إلى المتغير ۸1)۸5 بعد جعل كل وصلة في سطر» ثم نقوم باستعراضها في صندوق 
نص كما في السطر الأخير من الكود. عار†380×5ء" تعني نوعية صندوق الحوار الذي سيظهر 
وقد اخترنا النوع |٣۴١١ ٤10١‏ لئلا يظهر صندوق الحوار وكأنه إنذارء أما النص الذي بعد 
الفاصلة فهو عنوان لصندوق الحوار» الآن قم بتجربة التطبيق» نقوم بزيارة موقعين أوتلاثة ثم 
نستعرض هذه المواقع عن طريق الزر 'قائمة بالمواقع'. 
نسخة من التطبيق بالمرفقات» مرفق رقم ..٠١‏ 


خطوة إضافية للأمام: مجموعات ال ۷8۸ 


لابد لنا أن نعرف معنی کلمة ۷8۸ (۸ Basic for Appا)ica t٥‏ اVisua)‏ وتعني فیجوال 
بيسك للبرامج وقد صممت هذه أصلا للتعامل مع برامج الأوفس (الورد والأكسل وغيرها)ء» حيث 
يمكن تصميم برامج مصغرة )۸4٤۲05(‏ للتعامل مع الورد أو الأكسل أو لتفيذ العمليات بسهوله 
بواسطة تلك البرامج. فمثلاً الكود التالي لبرنامج الورد يقوم بالبحث في الملفات المفتوحه بواطة 
برنامج الورد فإذا وجد هذا البرنامج ملف تحت اسم ۲.۵0٤‏ ۷)6 فإنه يقوم بحفظه وإذا لم 
يجده يقوم بفتحه مj‏ dlمuاڙر c:\vbO8sbs\chap12\myletter.d0C°"‏ : 
Dim aDoc As Document‏ 
Dim docFound As Boolean‏ 
Dim docLocation As String‏ 
docFound = False‏ 
docLocation = "c:\vbO8sbs\chap12\myletter. doc"‏ 
For Each aDoc In Documents‏ 
If InStr(1, aDoc.Name, "myletter.doc", 1) Then‏ 
docFound = True‏ 
aDoc.Save‏ 
Exit For‏ 
End If‏ 
Next aDoc‏ 
If docFound = False Then‏ 
Documents. Open FileName:=docLocation‏ 
End If‏ 
الكود أعلاه يقوم بتعريف المتغير ات doc ۴٥0۸٩ ›»a00€‏ ocationاdoc‏ تم قمنا بالبحٽث في 
الملفات المفتوحة عن الملف ٤0ل.۲)٤عال"‏ بواسطة الأمر |١5٤١‏ والذي يبحث عن متغير 
نصي بداخل متغير نصي آخر وإذا وجده فإنه سيقوم بحفظه بالكود 00٥.54۷۵‏ ثم قمنا بإغلاق 


الحلقة التکرارية ۴٥١ ٤۵٤۸‏ بالکود ٤×) ۴٥۴١‏ حتی لاتذهب بنا بعيدا وتنتج لنا نتائج غير 
مطلوبةء أما إذا لم نجد الملف ٤40.١6عال"‏ فإن البرنامج سيقوم بفتحة من المسار المحدد له 
في الكود بالأعلى. وللعلم هنا يقوم برنامج الورد وبرامج الأوفس بشكل عام بالتعامل مع ملفاته 
بشكل المجموعات K0) ٣)0١‏ الموجودة في برنامج الفيجوال بيسك ۲٠٠۸‏ (فإذا فتحنا فورم 
جديد يقوم الفيجوال بفتج مجموعة جديدة وإذا أضفنا لها كائنات جديدة يقوم الفيجوال بيسك بإضافة 
هذه الكائنات إلى المجموعة) فکل الملفات المفتوجة موجودة في مجمو عة Collection‏ خاص 
لبزتامج الور وك النصر صن و لفق رات ذلك رهاف اليد من ابر امح الأكرى الت تدع 
ال64 تقوم بنفس العمل. 


إدخال الكود إلى برنامج الورد 


الكود بالأعلى لا يمكن فتحة عن طريق برنامج الفيجوال بيسك وإنما لابد من فتحة ببرنامج الوردء 
وتختلف طريقة فتحه ببرنامج الورد بحسب نسخة الورد المتوفرة لديناء فإذا كانت لديك نسخة الورد 
٢‏ فإن طريقة إضافة الكود إلى الورد تكون بأن نذهب إلى القوائم ئامه (الأدوات) ثم منها 
إلى (الماکرو) N٣0٥5‏ ثم Create New Mac ٥‏ أو إضافة ماکرو جدید قم بكتابة اسم 
للماكرو سيفتح لك البرنامج محرر الفيجوال بيسك التابع للورد قم بإضافة الكود في المحرر. أما إذا 
كنت تستخدم نسخة ۲٠٠۷‏ من الأوفس فاختر قائمة المطورين 0٥۷٥106۲‏ ثم منها اختر 
0٥‏ م(ماكرو) ثم اختر اسما جديدا للماكرو وقم بكتابة كود الماكرو في محرر الفيجوال بيسك 
الذي سيظهر لك» إذا لم تظهر لك قائمة المطورين 0۴۷٥08٣١‏ فقم بإظهارها من خيارات الورد 
Word Opti‏ » انظر لشاشة الفيجوال بيسك المرفقة مع برنامج الورد Microsoft W0rd‏ 
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بعد كتابة الكود تستطيع تنفيذة بنفس الشكل الذي نقوم فيه بتنفيذ الكود في فيجوال بيسك» مع 
ملاحظة أن أكواد الماكرو تعمل على كل إصدارات الأوفس لكن في بعض الحالات النادرة قد 
تصادفك بعض الأخطاء في حالة تطبيق الكود على أكثر من نسخة من نسخ الأوفس» وقد تحتاج 
لتعديل الكود قليلا ليتناسب مع نسخة الأوفس. 

خلاصة الفصل الثاني عشر 

من اجل أن قم بالتالي 


التعامل مع عناصر /نستخدم الحلقات التكرارية التي تقوم بالتعامل مع كل عنصر في المجموعات 
المجموعات ection‌ااCo‏ علی حده. مثال: 


Dim ctrl As Control Collection 


For Each ctrl In Controls 


ctrl. Text = "Click Me!" 


على الفورم من اليسار 
إلى اليمين 


التعامل مع كائن معين 


ضمن مجمو عة الكائنات 


تعريف مجموعة جديدة 


وإضافة عناصر جديدة 


ا 


Next 


باستخدام الحلقات التكرارية للتعامل مع الكائنات الموجودة بداخل المجموعة 
نقوم بتعديل الخاصية 1۴٤‏ التابعة للكائنات كالتالي: 
Dim ctrl As Control‏ 
For Each ctrl In Controls‏ 
ctrl. Left = ctrl. Left + 25‏ 
Next‏ 
باستخدام الخاصية "۳٠‏ والحلقات التكرارية وأداة الشرط ۴| نقوم بالتعامل 
مع الكائن المراد التعامل معه كالتالي: 
Dim ctrl As Control‏ 
For Each ctrl In Controls‏ 
If ctrl.Name <> "btnMoveObjects" Then‏ 
ctrl. Left = ctrl. Left + 25‏ 
End If‏ 
Next‏ 
نحتاج لتعريف مجموعات جديدة بسبب سهولة التعامل مع المجموعات حيث 
نها بخصائص المصفوفات ونستطيع حفظ بيانات نصية وغيرها بداخلهاء 
لذلك نعرف مجموعة جديدة كالتالي: 
Dim CollectionName As New Collection ()‏ 


حيث ٤)10 ۸N ٥‏ ع))ه)٤‏ هي اسم المجموعة ويمكن إضافة عناصر جديدة 


للمجموعة بالطريقة ۸4١‏ كالتالي: 

CollectionName.Add(TextBox1. Text) 
فان طرفة إضنافة الكوة إلى الورد كرون‎ ٠٠١ إستخدام ال ۷8۸ لا كانتا لديك نة الورك‎ 
ثم‎ ۸٤٣٥5 فیجوال بیسك للبرامج | بأن نذھب إلی القوائم ئامہ٦ (الأدوات) ثم منھا إلى (الماکرو)‎ 
أو إضافة ماكرو جديد قم بكتابة اسم للماكرو‎ Create New 0 
سيفتح لك البرنامج محرر الفيجوال بيسك التابع للورد قم بإضافة الكود في‎ 
من الأوفس فاختر قائمة‎ ۲٠٠۷ المحرر. أما إذا كنت تستخدم نسخة‎ 
(ماکرو) تم اختر اسما جدیدا‎ ۸8٤۲٥ تم منھا اختر‎ 0٥۷۵10۵6۲ المطورین‎ 
للماكرو وقم بكتابة كود الماكرو في محرر الفيجوال بيسك الذي سيظهر لك‎ 
فقم بإظهارها من خيارات‎ 0۴۷٥10٥۲ إذا لم تظهر لك قائمة المطورين‎ 
Word OptiONS دڏرولl‎ 


برنامج الورد يتعامل مع الكثير من المجموعات ٤10١١‏ ))اه) من ضمنها 


ملفات الورد والفقرات ضمن ملفات الورد. 


الفصل الثالث عشر: إستعراض الملفات النصية والتعامل معها 


للتعامل مع الملفات النصية يجب أن نعرف أربع دوال تسهل لنا عملية التعامل مع تلك الملفات» 
هذه الدوال هي: 


۴|070 وتقوم هذه الدالة بفتح الملف النصي. 
خاnp kine‏ تقرأً سطر من سطور الملف النصي. 


۴۴ تبحث عن نهاية الملف النصي. 


٥0ا۴‏ تقوم بإغلاق الملف النصي. 
من أسهل الطرق لفتح الملفات النصية هي فتح الملف النصي بداخل صندوق النص» وإذا كان 
الملف النصي كبيرا نضيف أشرطة تمرير 5٤۲01183۲5‏ لصندوق النص حتى يستطيع المستخدم 
قراءة الملف النصي كاملا. 
فتح الملفات النصية: 
للملفات اللنصية بصمة مميزة وتحتوي على مجموعة من النلصوص والاسطر والكلمات تنتهي هده 
الملفات بلاحقة inf «log dinî «txt‏ وتحتوي الملفات على نصوصة مرتبة بشكل مميز نستطیع 
قراءتها من خلال صناديق النص. لفتح الملفات النصية نستخدم وهاه¡ ۴٥)آ۴معم0‏ نافذة الحوار 
التي تفتح لنا الملفات» ثم نقوم بوضع فلتر لتحديد نوع الملف النصي» كأن نحديد الفلتر )× لتقوم 
النافذة بإظهار الملفات النصية فقط ثم نختار الملف المحدد ونوافق عليهء فتقوم النافذة 
pene‏ بحفظ مسار الملف لنا نستطيع استخدام هذا المسار لفتح الملف» بعبارة أخرى 
نافذة الحوار وه اه0 6)اآn۴عمم0‏ لا تفتح الملف وإنما تعطينا مسار الملف. 
لد FileOpen ll‏ 
بعد معرفة مسار الملف النصي بواسطة الخطوة السابقة نقوم باستخدام الدالة ١۵€م0ه|آً۴‏ لفتح 
الملف والطريقة العامة لهذه الدالة كالتالي: 

FileOpen(filenumber, pathname, mode) 
.٠٠١ إلى‎ ١ هو رقم الملف ویکون من‎ |۵۸۳5 ٥۲ حیث‎ 
و 2۳۴€" طthمم هو مسار الملف الذي اخترناه في الخطوة السابقة.‎ 
أما 0۵8" فيعني (وضع الإستخدام) كيف سنتخدم هذا الملف وسنعرف عليها لاحقاء من المهم أن‎ 
نعرف بأننا سنستخدم وضعين للملفات وهما وضع للمدخلات اام ,8۵.1 ل۸۸0عم0 ووضع‎ 
.OpenMode. Output ٽlجرخnزن‎ 
لايوجد شئ مميز عند تعيين رقم للملف» إلا في حالة واحده: إذا كان لدينا أكثر من ملف مفتوح‎ 


وأردنا من برنامجنا أن يتعامل مع ملف واحد من هذه الملفات» فيمكننا ذلك بدلالة الرقم. معظم 
دوال فتح الملفات تستخدم الصيغة: 

FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input) 
ومسار الملف هو المسار المختار في نافذة الحوار 41 0)ه۴0ع]آ۴مهم0 أما الوضع فهو‎ ١ فالرقم‎ 
وضع الإدخال ام ”!ا .eمenModم0» عند التعامل مع الملفات النصية يجب علينا التعاملم عها‎ 
بطريقة تمسى الطريقة السياقيه )١ع ا۹ء لإن طبيعة الملفات النصية تحتم علينا التعامل معها‎ 
على حسب ترتيب السياق» أما في قواعد البيانات فنستطيع التعامل معها بأي ترتيب وبأي شكل.‎ 


نقوم الآن بفتح تطبيق الملفات النصية والموجود في المرفق رقم ۳۷.. بعد فتح التطبيق وإظهار 
الفوم يظهر لنا الشكل التالي: 


FF Texl Browser - Microsofî Visual Sludio EEK 
Fe Edi Yew Frojet full Ûekug Oe Forme Tack Testi Wiredow Hep 
E eRe اعت کے ر ھا تا‎ 
| Farmi.wb [Design] ¥ x Bohtan Exphorat Rx 
Text Browser [E EE) iF Terk Browser 
E a] My Project 
EE] Fomil ,rh 
لشتج الفاغات النسية استقدم الأقر شي‎ 
Salton Explorer g0 ã Sources 
Froperthas NK 
| FoF Sete, Moves FafiS, FORT > 
2 a AIH 
î mera grin! il cpanFiepialeg1 HME 
El Fading O; Û; Û; Û “ 
RaghêTalLeft Yes 
Rage TaLeftLaya Falsê 
Err 1it wR x Shevin 
آ‎ 3 ShowinT akbar Trim 
EE (hû Wamirgs | | iJ O Hasa ES E Ske 480; 333 
Cearsaiipkion File Lira Colum Fenjackt SEearip Ryle Auto 
Sha tPoatign rdowsDef MEL: 
ا‎ 
Text Tet Hrowser 
Teftiet ة۴‎ 


eut 
The test ass0dated + FTE EFO 


خرو ج. أما الكائنات الأخرى الموجودة على الفورم فهي نافذة فتح الملفات OpenFileDialog1‏ 


وليبل يحتوي على تعليمات نصية. نقوم الآن بتنفيذ البرنامج بالضغط على ۴5 وسيفتح نا النموذج» 
من النموذج (الفورم) المفتوح نختار ملف ثم فتح سيفتح لنا نافذة استعراض الملفات وسيقوم بإظهار 
الملفات النصية بلاحقة ×( بسبب الفلتر الذي طبقناه في مرحلة الكود (سنتعرف عليه). 


KË) bin 

my, Project 
obi 
EE 


Files of type: پټ [۲1] الملغات النصبية‎ 


نقوم باختیار الملف "٥۸5۸‏ المرفق بالتطبيق ثم نختار 08۸ سيقوم التطبيق بفتح الملف 
المختار» وهو عبارة عن جزء من قصيدة للشهيد محمد محمود الزبيري» في صندوق النص بداخل 


Text Browser E 8) x 


Ci Documents and Settings Aoon\Desktoplybsbsi T3 7imohsn txt 


| وأقسم بالل خير القسم 

log |‏ صتحه من كريد الشيم 

| لارشى يقلبي قى الضزذخة 

| واشحةو عن الشجب عار الصدةت 
وأججله عبرة لمم ! 

| ساقضي عنیدا قلا آنتني 

| ایا کریها فلا لدی 

| ارفج تخو السماء حضتي 
كفا ارتشعت جيهة الوقن 
موت خميصا !! ولا اقل الغعات 
من القاتل الضحسن 

الشهيد محمد محمود الزبيري ) 


الآن سنقوم بمراجعة الكود المستخدم» نفتح النموذج (الفورم) ثم )٤1)٣-ع‏ اطا( على فتح سنجد 
الكود التالي تحت الحدٿث Clik‏ llتllبg‏ ن :OpenToolStripMenultem‏ 


Dim AllText As String = "", LineOfText As String = "" 
OpenFileDialog1.Fil ter = "تlفلlkاl‎ ةيصنiلlاl‎ (*.TZXT) |*.TXT" 
OpenFileDialog1.ShowDialog() 'display Open dialog box 
If OpenFileDialog1.FileName <> "" Then 
TEY "Ope FILE ad tEFaD any €eFEOES5- USING haRdler 
FileOpen (1, OpenFileDialog1.FileName, OpenMode. Input) 


Do Until EOF (1) 'read lines from file 
LineOfText = Linelnput (1) 
'add each line to the AllText variable 
AllText = AllText & LineOfText & vbCrLf 


LOO 
lblINote.Text = OpenFileDialog1.FileName 'update label 


txtNote.Text = AllText 'display file 
txtNote.Enabled = True 'allow text cursor 
CloseToolStripMenulItem. Enabled = Tru 'enable Close command 
OpenToolStripMenulItem.Enabled = False 'disable Open command 

GALE 
MsgBox ما خطاً حدئ")‎ :"( 

Finally 
FileClose (1) 'close file 

ERG TEY 

Eid ZÊ 


في السطر الأول تعريف المتغيرات» السطر الثاني تعيين الفلتر × للنافذة اختيار الملفات 
le i21‏ en۴م0p.‏ وفي السطر الثالث أمر بفتح نافذة البحث عن الملفات»ء ومن السطر الرابع 
وما بعده استخدمنا اداة الشرط ۴| لتحديد ما إذا كان المستخدم قد اختار ملف معين فإذا قد اختار 
ملف فسوف تقوم نافذة اختيار الملفات بتحويل المسار إلى المعامل ۸4۳۴ ]آ۴ وعليه إذا كان 


Fle Name‏ لايساوي " أي أنه (6 ۴|۴۸۳ أو المسار) ليس فارغا سيقوم البرنامج بتحويل 
الأمر إلى السطر الذي يليه والذي يقوم باستخدام الداله ۴|06١‏ لفتح الملف النصي المختار. 


وسيقن البركامح باقر اة جتن المطر الأخبر من املف بقية الكرد قرم يفيل صندرق الص»: 
وكذلك بكتابه مسار الملف في الليبل في أعلى النموذج (الفورم)ء وفي نفس الوقت تقوم بتفعيل الزر 
(إغلاق) الموجود في القائمة المنسدلةء والذي يقوم بإغلاق الملف النصي المفتوح بدون إغلاق 
البرانامج كاملا. قم بقراءة الشفرة مرة ثانية لتفهم منها الكثير. 


ننزل قليلاً في منطقة الكود لنرى الكود الخاص بزر القائمة "إغلاق'» وهو الزر الذي يقوم بإغلاق 
الملف النصي الذي فتحناه» والموضوع تحت الحدث ٤1ا‏ لنرى هذا الكود: 


txtNote.Text = "™" 'clear text box 

".فتح الأمر استخدم النصية الملفات لفتح" = 1b1Note. 1٠x‏ 

CloseToolStripMenulItem.Enabled = False 'disable Close command 
OpenToolStripMenuItem. Enabled = Tru "enable Open command 


السطر الأول يقوم بمسح كل النصوص من صندوق النص» بعد ذلك نقوم بتعبئة الليبل الموجود في 
النموذج (الفورم) بالعبارة "استخدم الأمر فتح لفتح الملفات النصية" بدلا من المسار التابع للملف 
النصي الذي فتحناه قبل قليل. السطر الثالث من الكود يقوم بإلغاء تفيل الزر 'إغلاق' في القائمة 
لإننا لن نحتاجه إذا لم يكن موجود معنا ملف نصي مفتوح. أما السطر الرابع فيفعل لنا الزر 'فتح" 
استخدام الفأ )الكاںڻس( My.Computer.FileSystem gy StreamReader‏ lتح‏ 
الملفات النصية: 

تعلمنا في الدرس السابق كيف نقوم بفتح الملفات النصية باستخدام الدالة 0p6€١‏ )|۴ التابعة 
للفيجوال بيسك» الآن نحن بصدد فئة ومجال أسماء يقومون بنفس العمل (فتح الملفات النصية) وهما 
الفئة (الكلاس) M.€omputer.FileSystem sla! Jlجny StreamReader‏ الفرق 
الوحيد هنا هو أن الفئة ومجال الأسماء المذكورين يتبعان إطارات عمل الدوت نت بشكل مباشر 
وليسوا خاصين بالفيجوال بيسك فقطء لذلك نستطيع استخدام هاتين الطريقتين في أية لغة برمجة 


نفس العمل يفيدنا كثيرأ لاحقأًء وسيكون لدينا الخيار الذي نريد في حالة أردنا فتح الملفات النصية. 
لفiة‏ )Jlكlض( StreamReader‏ 
هذه الفئة تقوم بقراءة الملفات النصيةء وسنقوم باستخدامها كثيرأً في هذا الكتاب وستجدها مثلا في 
الفصل السادس عشر من هذا الكتاب» تتبع هذه الطريقة إطارات عمل الدوت نت» ولاستخدامها لا 
بد من إستيراد مجال الأسماء الخاص بها في أول منطقة الكود في الفورم وقبل أي سطر آخر 
للكود» نكتب هذا الكود: 
Imports System.IO‏ 
تعلمنا طريقة كتابة أكواد استيراد مجالات الأسماء في الفصل الخامس من هذا الكتاب. بعد كتابة 
كود الإستيراد بالأعلى وأردنا فتح ملف نصي بداخل صندوق نص في برنامجنا نضيف هذا الكود 
ولنفرض بأن لدينا الكائن ٠۴×80×1‏ على الفورم والملف النصي هو ځ×ځ .0۸5۸" : 
Dim Stream ToDisplay As StreamReader‏ 
StreamToDisplay = New StreamReader("C:\ mohsn. txt")‏ 
TextBox1.Text = Stream ToDisplay.ReadToEnd‏ 
StreamToDisplay.Close ()‏ 
TextBox1.Select(0, 0)‏ 
الكود يفترض بأن الملف موجود في :0 لكننا نستطيع تعديل الكود ونكتب المسار الصحيح للملفء 
وفي نفس الوقت نستطيع استخدام نافذة الحوار ٣۴)80 1)0١‏ عم0 ونسمح للمستخدم من اختيار 
الملف ثم الإستفادة من المعامل ۳"٥‏ ه١‏ ]ا۴ التابع لنافذة الحوار المذكورة. 


الطريقة الثانية لفتح الملفات النصية هي استخدام مجال الأسماء ¥»ء تمت إضافة مجال الأسماء 
النماذج (الفورم) وكذلك إظهار معلومات عن ملف في الكمبيوتر أو عن مستخدم الكمبيوترء أو عن 


البرنامج نفسه»ء واستخدام بعض الخدمات على الإنترنت» يعزف الكثير من المبرمجين عن استخدام 
هذا المجال بسبب إعتقادهم صعوبة التعامل معه»ء وبارغم أنه أضيف ليسهل عملية البرمجةء 


وللتوضيح فمجال الأسماء ¥ ينقسم إلى أكثر من مجموعة كالتالي: 

My.Application‏ يعطينا معلومات لها علاقة ببرنامجناء مثل مسار البرنامج ونسخة 
البرنامج والعنوان وغيرها. 

۷.MP٣‏ | يعطينا معلومات عن العتاد والبرامج » والملفات الموجودة محلياء ونسفيد 
من هذه المجموعة لفتح الملفات النصية. 

My.Forms‏ يعطينا معلومات عن النماذج بداخل برنامجناء سنعرف أكثر عن هذه 
المجموعة في الفصل السادس عشر من هذا الكتاب بعون الله. 
65 »ء١‏ |يعطينا معلومات عن المراجع والدوال والمكتبات التي استند عليها 
My.Settings‏ يعطينا معلومات عن الإعدادات في برنامجنا ونستفيد من ذلك بخزن 
وإعادة الإعدادت لبرنامجنا بطريقة اوتوماتيكية. 

My. User‏ معلومات عن المستخدم الحالي. 


N.N 665‏ | معلومات عن خدمات الويب الحاليةء واساساً يمكن الإعتماد علية لفتح 


خدمات ويب جديدة. 


مجال الأسماء ¥« يعتبر من أسهل الطرق البرمجية للوصول إلى الهدف» وعند كتابة الأكواد 
التابعة له يقوم الإكمال التلقائي |١۲61)15٥ ٠5٥‏ بتسهيل المهمة أكثر. 


نستطيع استخدام مجال الأسماء "عاءر۴¡|eS Ny. computer.‏ بالإضافة إلى الطريقة 

ext‏ ا )مع لفتح الملفات النصية واتعراض محتوياتها بداخل صندوق نص» هنا الكود الذي 
نستخدم فيه مجال الأسماء المذكور لفتح الملفات النصيةء على إعتبار بأن لدينا صندوق نص باسم 
txt Nt‏ مثل المثال السابق»ء نستطيع استخدام المثال السابق مع هذا الكود: 


Dim AllText As String = "" 

OpenFileDialog1.Filter = "Text files (*.TXT)|*.TXT" 
OpenFileDialog1.ShowDialog() ‘display Open dialog box 
If OpenFileDialog1.FileName <> "" Then 


AllText = 
My.Computer.FileSystem. ReadAllText(OpenFileDialog1. FileName) 


txtNote. Text = AllText ‘display file 
End If 

ولإننا استخدمنا الطريقة ٥×٤‏ 4۸))1ه۸۴ لفتح الملف النصي گاملا بذاخل صرق انض تبر 
هذه الطريقة من أسرع الطرق لفتح الملفات النصية وأسرع من الطريقة الأولى خاصةء وهنا 
ملاحظة بأن مجال الأسماء ل يعتبر سريع جداأ للتعامل مع العديد من الأمور البرمجيةء لكن 
الطريقتين السابقتين لهما ميزات للتعامل مع المحتوى النصي أفضل من ميزات مجال الأسماء ۸۷ء 
لإن مجال الأسماء يتعامل مع الملف ككل وكوحدة واحدة ويقوم بفتحة كاملاء لذلك فهو أسرع» لكن 
طريقتي "۸٥2٥۲‏ هع١)S‏ و ١عم۴0p|ا۴‏ تتعامل مع الملفات النصية بشكل سطري لذلك 
فميز اتهما النصية أفضل بكثير» خاصة إذا أردنا استخدام الترتيب التصاعدي وغيره من الميزات 
التي سنحتاجها لاحقاء وعلية لابد من فهم الثلاث الطرق للتعامل مع الملفات النصية وتحديد 
الطريقة الأفضل في الوقت المناسب بحسب الحاجة التي نحتاجها من فتح الملف النصي. 


إنشاء ملف نصي جديد على الهارد 
قد نحتاج لإنشاء ملف نصي وحفظة على الهارد للعديد من الأسباب منها حفظ إعدادت برنامجناء 
أو إعداد تقارير معينةء أو تصميم برنامج للتعامل مع النصوص مثل »)۷0۲١(‏ أما طريقة حفظ 
النصوص في ملف نصي فتكون كالتالي: 

-١‏ أخذ المدخلات النصية من المستخدم وإسنادها إلى متغيرات معينة. 


- السماح للمستخدم من تحديد مكان حفظ الملف النصي باستخدام نافذة حوار 
SaveFileDialog.‏ 


۳- استخدام المسار الذي يحدده المستخدم لحفظ البيانات النصية فيه لفتح الملف. 
٤‏ - استخدام الدالة ٠‏ اا١‏ آ٣۴‏ لحفظ البيانات النصية إلى الملف المفتوح. 


-٥‏ بعد إكمال الحفظ نقوم بإغلاق الملف المفتوح بواسطة الدالة #ءه)ا).هاآ۴. 


قم بفتح الملف رقم ٠۳۸‏ من المرفقات لتجد تطبيق باسم 0€ )٤۷01ا‏ قم بفتحه ثم استعرض 
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كما يلاحظ من الصورة هذا المشروع» تقريباً نفس المشروع السابقء فقط نحن استبدلنا 
OpenFileDialog‏ ب ve۴1 ial‏ وقمنا بتعديل الكود وبنود القائمة. نقوم بتنفيذ 
البرنامج ونكتب نص في صندوق النص تم نختار حفظ باسم» نلاحظ ظهور نافذة حوار لحفظ 
الملف النصي نختار مسار ثم نقوم بحفظ الملف النصي بلاحقة خ×. 


مراجعة الكود: 


الكود الخاص بإدخال التاريخ إلى النص هو: 


txtNote. Text = My.Computer.Clock. LocalTime & vbCrLf & 
txtNote. Text 


txtNote.Select(1, 0) ‘remove selection 
السطر الأول من الكود يستخدم مجال الأسماء ¥« لإدخال الوقت إلى صندوق النص» ومع الأخذ‎ 
في الإعتبار وجود نص سابق في صندوق النص قمنا بإضافة النص السابق إلى التاريخ الذي‎ 
أشفقاءء بإمكانتا إضافة الثاريخ بظرق أخرئ يدون استخم مجان الأسماء ل أما الكرد الخاضن‎ 
SaveFileDialog1. Filter = "ةيصنiلl الملفات‎ (*.txt) | *.txt" 


SaveFileDialog1.ShowDialos() 
If SaveFileDialog1.FileName <> "" Then 
FileOpen(1, SaveFileDialog1.FileName, OpenMode. Output) 
PrintLine(1, txtNote. Text) ‘copy text to disk 
FileClose (1) 
End If 
السطر الأول يقوم بوضع فلتر للملفات ويسمح فقط للنو ع النصي بلاحقة × فقطء أما السطر‎ 
الثاني فيظهر لنا نافذة حوار لحفظ الملفات» وعند إختيار المستخدم لمسار معين كما في بقية الكود‎ 
يقوم البرنامج بفتح الملف النصي الذي إختاره المستخدم (أو يقوم بإنشاءه إذا لم يكن موجودا)ء ثم‎ 
يقوم البرنامج بحفظ النص الموجود في صندوق النص بداخل الملف النصي باستخدام الداله‎ 
الموضحه في الكود والتي تقوم بحفظ النص الموجود في صندوق النص. بعدها‎ rini n٥ 
مباشرة نستخدم الدالة ۳)058] ]آ۴ لغلق الملف النصي.‎ 


التعامل مع النصوص ضمن الملفات النصية: 


تعلمنا في المثالين السابقين كيف نقوم بفتح ملف نصي وكيف نقوم بحفظ النصوص في ملف نصي› 
الآن سنتعرف إلى ميزات جميلة جدا في طرق التعامل مع الملفات النصيةء هذه الطرق ستفيدنا 
كثيرا في إستخراج معلومات من الملفات النصيةء كذلك في ترتيب محتويات الملفات النصية 
(تصاعدياء تنازليا). 

دعونا الآن نتخيل كيف يقوم برنامجنا بترتيب معين (تصاعدي» أو تنازلي) لعدد كبير من الكلمات 
في مصفوفة أو في عمود معين أو في ملف نصي: يقوم البرنامج بترتيب الكلمة الأولى من القائمة 
ثم يأخذ الكلمة الثانية ويقارناه مع الأولى لتحديد هل هي قبل أو بعد ثم يأخذ الكلمة الثالثة ويقارنها 
ويحدد مكانهاء قبل الأولى» قبل الثانية أو بعدها ويستمر في المقارنة حتى نهاية قائمة الكلمات» ما 
يهمنا هنا الوقت اللازم لتنفيذ العمليةء طبعاً علماء الكمبيوتر دائما يحسبون للوقت ألف حساب 
وهناك العديد من الدوال والخوارزميات التي تسهل عملية الفهرسة. سوف نتعلم هنا بعض 
الأساسيات في مقارنة النصوص بهدف الفهرسة»ء ستفيدنا هذه الأساسيات في فهرسة قوائم الكلمات 
أو في فهرسة النصوص وغيرها. 

الفئة (الكلاس) ع١‏ آآ†؟ 


للتعامل الأمثل مع النصوص نحتاج للفئة 5٣١4‏ » يمكننا القول بأننا لم نستخدم أية معامل أو دالة 
للتعامل مع النصوص لحد الآن عدا استخدام أداة الربط & للربط بين النصوص و إضافة النصوص 
بعضها إلى بعض. فإذا كان لدينا نص مفرق ونريد أن نربطه مع بعضه نستخدم أداة الربط & 
كالتالي: 


Dim XYZ as String 
XYZ = TextBox1.1 ext & “ ”اسم الطالب‎ 
.1۴×)80×1 يقوم الكود أعلاه بإضافة الكلمة "اسم الطالب" إلى النص المكتوب في صندوق النص‎ 
فالأمر يختلف قليلاء فالفئة المذكورة تسهل‎ 5٣1١ أما عند التعامل مع النصوص باستخدام الفئة‎ 
لنا الكثير من عمليات التعامل مع النصوص» فعملية ربط النصوص مثلا تكون كالتالي:‎ 


Dim XYZ as String 


XYZ = String.Concat(TextBox1. Text & “ (”اسم الطالب‎ 


فيجوال بيسك يعتمد كلا الطريقتين للربط بين النصوص» كما أن فيجوال بيسك يعتمد الطرق 
القديمة والخاصة بالنسخ الأقدم من فيجوال بيسك في التعامل مع النصوصء» فمثلا الفيجوال بيسك 
۸ يعتمد الدوال 15٥(‏ 1 ,عءة علا ,ك0) وغيرها من الدوال وفي نفس الوقت يعتمد الدوال 
الجديدة للتعامل مع النصوص والتي تعتبر من ميزات إطارات العمل (الدوت نت) حيث يمكن 
تطبيقها تحت كل لغات البرمجة المدعومة من الدوت نت» ومن هذه الدوال ( ,ګہSubstri‏ 
werسl0‏ 0" ,امل" ). الجدول التالي يوضح بعض الطرق كل١‏ ۸0ع“ القديمة والجديدة 
للتعامل مع النصوص مع أمثله: 


طريقة الدوت نت 


ToUpper 


ToLower 


Length 


Substring 


E 


UCase 


LCase 


Len 


Mid 


تحويل الحروف من كبيرة 
إلى صغيرة 


لتحديد عدد الحروف في 
النص 


اا ا 
نريد أن تبداً منها مع العلم 


مثال 
Dim Name, NewName As String‏ 
Name = "Kim"‏ 
NewName = Name. ToUpper‏ 


"ا۸" = النتيجة ستكون' 
Dim Name, NewName As String‏ 
Name = "Kim"‏ 

NewName = Name. ToLower 
النتيجة ستكون'‎ = "1۳" 

Dim River As String 

Dim Size As Short 

River = "Mississippi" 

Size = River.Length 

1 = النتيجة ستكون' 

Dim Cols, Middle As String 

Cols = "First Second Third" 
Middle = Cols.SubString(6, 6) 


IndexOf 


Trim 


Remove 


Insert 


StrComp 


Instr 


Trim 


بأن الحرف الأول يعتبر 


تحدید رقم حرف معین 


SNE 


تحذف المسافات الفارغةء 
والبادثات الفارغة من 


تن 


تضيف حرف إلى نص 


"Second"‏ = النتيجة ستکون' 


Dim Name As String 
Dim Start As Short 
Name = "Abraham" 


Start = Name.IndexOf ('h") 
النتيجة ستكون'‎ = 4 

Dim Spacey, Trimmed As String 
Spacey = " Hello " 

Trimmed = Spacey. Trim 

"He"‏ = النتيجة ستكون' 

Dim RawStr, CleanStr As String 


RawStr = "Hello333 there" 


CleanStr = RawStr. Remove (5, 3( 


"Hello there"‏ = النتیجة ستکون' 
Dim Oldstr, Newstr As String‏ 
Oldstr = "Hi Felix"‏ 


Newstr = Oldstr.Insert(3, "there(" 


'"Newstr = "Hi there Felix" 


Dim str1 As String = "Soccer" 
Dim str2 As String = "SOCCER" 
Dim Match As Short 

Match = StrComp(str1, _ 


str2, CompareMethod. Text) 


match[‏ sوstrin]‏ 0 = النتيجة ستكون' 


فهرسة النصوص: 

قبل أن يقوم الفيجوال بيسك بفهرسة النصوص يقوم أولا بمقارنة النص حرف حرف مع قائمة 
تحتوي على قيمة رقمية لكل حرف» ثم يقوم بعدها بإظهار النتائج» هذه القائمة تسمی ۸5٣11‏ أو 
ا5 » تحتوي هذه القائمة على قيمة رقمية لكل حرف وتميز بين الحرف الكبيرة والصغيرة» تبدأً 
القائمة من صفر حتى ٠٠١‏ تمثل الحروف العربية منها من الرقم ۱۹۲ أو ۹۳ء وللعلم هذه 
القائمة تميز بين الصيغ المختلفة للحرف الواحد في اللغة العربية ف "أ" يختلف عن "" ويختلف عن 
"" وعن "إ". وعند إعطاء كل حرف من الحروف قيمة رقمية يقوم البرنامج بمقارنة القيم الرقمية ثم 
القيام بعملية الفهرسة. فمثلا الحرف 4 بالإنجليزية يساوي القيمة ٩۷‏ بينما الحرف ۸ يساوي القيمة 
© وعلية ف ۸ يعتبر قبل ه في عملية الفهرسة. قائمة ال 1ا٣5‏ كانت تحتوي على ٠١۸‏ 
عنصر وفي الثمانينات من القرن الماضي أضافت شركة 8۸| العديد من الحروف اللاتينية 
والرموز حتى صارت القائمة تحتوي على ٠٠١‏ بند» لكن مع دخول البرامج الكمبيوترية مرحلة 
العالمية بقت القائمة ۸5٣١‏ لا تكفي لمقارنة الحروف فكان لابد من بديل عالمي» فظهر مصطلح 
ال ع٥dهعآملا‏ كبديل للقائمةء تعتبر قائمة ال ٥0٥١لا‏ قائمة معيارية عالمية تحتوي على 
٠ه"‏ بند وتحفظ كل الحروف العالميةء ويندوز ۴× و ويندوز 2003 وما بعده من نظم التشغيل 
وكذلك فيجوال ستديو ۲٠٠۸‏ تتعامل مع قائمة ال ا٣۸5‏ وقائمة ال ٥ل٥ءا١لا‏ بكل أريحية. 


عند تحويل برنامجك إلى برنامج عالمي» لابد أن تتعرف أكثر على القائمة المعيارية العالمية 
.Unicode‏ 


التعامل مع قائمة ال اا٣€AS‏ 
لمعرفة الرقم المقابل لكل حرف من الحروف في قائمة ال ۸5€ نستخدم الدالة ۸5€ فالكود 
التالي يرجع لنا برقم الحرف ”2“ من القائمة: 

Dim AscCode As Short 


AscCode = Asc(z") 
MsgBox (AscCode) 


ويمكننا كتابة أية حرف بداخل علامة التنصيص لمعرفة قيمته الرقمية من القائمة ١ا45‏ للقيام 
بالعملية العكسية»ء وهي معرفة الحرف الذي يمتل قيمة رقمية معينة نستخدم الدالة ٣٣‏ كالتالي: 
Dim letter As Char‏ 
letter = Chr(122)‏ 
MsgBox (letter)‏ 


ونكتب أي رقم من ٠‏ إلى .٠٠١‏ 


لمعرفة تفاصيل أكثر عن القائمة اا۸5€ ارجع للتعليمات المرفقة مع برنامج الفيجوال بيسك وابحث 
عن Chr, ChrW fun c10 ۸S‏ وفي نهاية المقالة ستجد جول يوضع كل قيمة والحرف المقابل 
لھا. 


نعود الآن لعملية مقارنة الحروف» عند مقارنة الحروف يقوم الفيجوال بيسك باستخدام أحد 
المعاملات التالية <> لا يساوي» = يساوي» < اضر ھن € اکر ھن :کد أصغر من أو يساوي» 
=> أكبر من أو يساوي» ف ”۸“ يعتبر أصغر من ”8“ لان ”8“ > .“A”‏ وعند مقارنة كلمة 
ع اكرى ر ار ل هر ر 0 
التانية ثم يقوم بمقارنة الحرف الثاني من الكلمة الأولى مع الحرف الثاني من الكلمة الثانية» حتى 
يصل إلى الفرق» فإذا كان لدينا الكلمتين» N12٥1‏ و «1)٥‏ يقوم البرنامج بمقارنة الحرف الأول 
ثم الثاني ثم الثالث ليعرف بأن "k٥ < M۸2٥1‏ وعلية يقوم البرنامج بترتيب 1٥2٣ءا"‏ قبل 
Mik‏ في قائمة الفهرسة. إذا كانت لدينا قيمتين متساويتين وكانت إحدى القيمتين أطول من 
الاأخرس قان الق ن تن اکر فن اة قر فغ A۸۵۸‏ هن كز :م :A۸۸‏ 


ترتيب النصوص بداخل صندوق النص: 
E E ELS NA a O ED‏ 
القوائم 1 » ل 'فتح" لفتح ملف » ۱ ¢ وكذلك 'إغلاق"' ل 0 9 1 أو الد ¢ وذ » به 'ثر تیب 


لترتيب النص نستخدم الإجراء 5"٥))50۲‏ لكن البرنامج يتعامل الآن مع النص في صندوق 
النص كوحدة واحدة» لابد من تقطيع النص إلى مجموعة وحدات نصية تم ترتيبها ب 
51tعSh.‏ سيتم تقطيع النص إلى اسطر وسيقوم البرنامج بترتيب النص سطر سطر»› بحث 
ينظر البرنامج إلى كل سطر كأنه وحدة واحدةء فإذا كان النص يحتوي على كلمة واحدة فسيقوم 
البرنامج بترتيب النص بشكل تصاعدي» من أول حرف حتی آخر حرف» آما إذا کان كل سطر 
عبارة عن أكثر من كلمة فيقوم البرنامج باعتماد الحرف الأول من كل سطر ويرتب على أساسه. 
لقد قام مؤلف الكتاب بكتابة وحده برمجية ع )لال۸ تقوم بفصل النص إلى مجموعة من الأسطر 
بحيث تعتمد كل سطر وحدة نصية واحدة» وقام المؤلف بإضافة الإجراء 5۸6))50۲٤‏ إلى الحدة 
البرمجية ع الال" لنقوم باستدعائها من أية مكان في الكود. المهم في هذا الكود هو الطريقة التي 
تم تقسيم النص إلى أسطرء حيث أنه لا توجد دالة في الفيجوال بيسك تحسب لنا عدد الأسطر أو 
تقوم بفصل النص إلى عدة أسطر» ولكن تم تصميم إجراء يقوم بالبحث بداخل النص عن الأمر 
٣‏ (حيث من المعروف بأننا إذا أردنا أن نضيف سطراً جديدا في النص» نقوم بالضغط على 
الزر E٣6١‏ في الكيبورد)ء وإذا رجعنا لقائمة معايير ال ا٣۸5‏ لوجدنا بأن الرقم المقابل ل 
E٣‏ في القائمة يساوي ١٠ء‏ فالإجراء الذي يحدد السطر الجديد يقوم بالبحث بواسطة الدالة 
۳ على الرمز ٠١‏ في النص بداخل صندوق النص» وعليه يتم تحديد كل سطر جديد» راجع 
الكود التالي الذي يقوم بتحديد كل سطر جديد في صندوق النص: 
Dim ln, curline, letter As String‏ 
Dim i, charslnFile, lineCount As Short‏ 


‘determine number of lines in text box object (txtNote) 

هذا المتغير يقوم بحساب عدد الأسطر' 0 = lineCoUNt‏ 

الحصول على إجمال عدد الأحرف في lلنصض' charslnFile = txtNote. Text. Leng‏ 
التحرك بداخل النص حرف حرف“ 1 - For i = 0 To charslnFile‏ 

letter = txtNote. Text. Substring(i, 1) > أخد كل حرف على‎ 


If letter = Chr(13) Then ' Jaرحl|‎ jlك‎ |! Enter 


(ineCoUunځ‎ += 1 إذهب للسطر الذي يليه“‎ )١ (أضف إلى عدد الأسطر‎ 
i += 1 ‘skip linefeed char (typically follows cr on PC) 
End If 


Next i 


في الكود أعلاه تم إسناد عدد الأسطر إلى المتغير ٣۴۳01١٤‏ اء وسنستفيد من المتغير لتعريف 
مصفوفة متغيرة ونحدد عدد عناصرها بعدد الأسطر. وبعد تعبئة الأسطر في المصفوفة المتغيرة 
نستخدم الدالة 50۲٤‏ في المصفوفة لترتيب الأسطر تن نقوم بعرض الأسطر في صندوق النص. 
لنجرب الآن تشغيل التطبيق (بالمرفق رقم )٠۳۹‏ ونكتب الأسماء التالية في صندوق النص: 


Zebra 
Gorilla 
Moon 
Banana 
Apple 
Turtle 
تمر‎ 

حصان 


لا بد أن نتعمد عدم ترتيب العناصر أعلاه ليقوم التطبيق بترتيب العناصر المذكورة» ولابد أن نتأكد 
أننا ضغطنا على E٣6۲‏ بعد كتابة الكلمة الأخيرة في القائمة 'نخلة" ليقوم البرنامج بحساب عدد 
الأسطر بشكل صحيح. بعد إضافة الأسماء إلى صندوق النص» نختار ترتيب من القائمة المنسدلةء 
ليقوم البرنامج بترتيب الأسماء كاملة بشكل ألفبائي وبحيث يبدا بالكلمات الإنجليزية ثم يقوم بترتيب 
الكلمات العربية (لان ترتيب الحروف الإنجليزية في قائمة ١ا۸5‏ يبدأ من ۳۲ وينتهي في ۷١۲٠ء‏ 
أم الحروف العربية فتبداً عند ترتيب ۹١‏ وما بعد ذلك). بعد ترتيب النص ستكون الفورم كما في 
الشكل التالي: 


HE Sort Text 
تلف‎ 
قم بطباعة نص أو اقح ملف نصي ليتم ترتيب النص بذاخله‎ 


Applë= 
Banana 
Barilla 
Moor 
Turkle 
Zebra 
تھ‎ 
حصا‎ 


يتبقى لنا هنا ملاحظتين على عملية ترتيب النصوص» الأولى: إذا كان لدينا نصوص وأرقام في 
نص معين وأردنا الترتيب سيقوم البرنامج بترتيب الأرقام أولا ثم يقوم بترتيب النصوص بعدهاء 
لان الأرقام تسبق النصوص في قائمة 45٣١‏ الملاحظة الثانية لا ينصح باستخدام قائمة ال 
11 في ترتيب الأرقام لإن قائمة ال ا٣۸5‏ تتعامل مع الأرقام كنصوص» فإذا كان لدينا 
الأرقام من صفر إلى عشرة في قائمة فسيقوم التطبيق بوضع الصفر في أول القائمة ثم الواحد ثم 
العشرة ثم الإثنين» لإنه سيتعامل مع ال ٠١‏ وكأنها نص (كأنها حرفين مستقلين)ء فسيبداً بالتعامل 
مع الرقم ١‏ لإنه في أول السطر ثم سيذهب للتعامل مع العنصر التالي ال ۲ بغض النظر عن 
الصفر الذي يتبع الرقم واحد» ولحل هذه المشكلة يجب ترتيب الأرقام بشكل رقمي وليس بشكل 
نصي» وفي حالة معالجة الأرقام بشكل نصي يجب أن نمنع المستخدم من إدخال نصوص غير 
رقمية إلى مربع النص. 

خطوة إضافية للأمام: مراجعة كود تطبيق ترتيب النصوص 

تطبيق ترتيب النصوص (بالمرفق ۰۹) يحتوي على العديد من الدوال والإجراءات التي يجب أن 
نعرفها لنزداد معرفة برمجيةء نفتح التطبيق ثم نذهب إلى منطقة الكود التابعة للنموذج ۴0۲۳۸1 
ونذهب للحدث )ءا التابع لزر القائnة‏ lئuinدlة »SortTextToolStripMenul tem‏ قد 
تناولنا النصف الأول من هذا الكود والذي يقوم بتقسيم النص إلى مجموعة من الأسطرء لنذهب إلى 
الشطر الثاني من الكود والذي يقوم بإعادة تعريف المصفوفة المتغيرة 5۲,۸۲۲١۵‏ التي سبق 


وعرفناها في الوحدة البرمجية €1 )ال00 قمنا هنا بإعادة التعريف لتحديد عدد عناصر المصفوفة 
والذي يساوي عدد الأسطر في النص. ثم قمنا بتعبئة المصفوفة بعناصر الأسطر الموجودة في 
النص» بعد ذلك قمنا بترتيب هذه العناصر باستخدام الإجراء 5١6150۲‏ الذي عرفناه في الوحدة 
البرمجية عالالكهN‏ » تم قمنا في آخر الكود بإدخال عناصر المصفوفة (بعد الترتيب) إلى صندوق 
اللضن: 

بالنسبة للحدة البرمجية ال ع اال" قمنا بتعريف المصفوفة المتغيرة 5۲,۸۲٣۵‏ لنقوم 
باستخدامها في مكان في الكود على طول التطبيق» كما قمنا بتعريف الإجراء 5۸٥150۲٤‏ والذي 
يقوم بترتيب عناصر المصفوفة على أساس تقسيم عناصر المصفوفة إلى قائمتين مصغرتين كل 
قائمة تحتوي على نصف العناصر ثم نقوم بالترتيب» الترتيب النهائي يكون ترتيب تصاعدي أما إذا 
أردنا ترتيب تصاعدي فتقوم بقلب الرمز "=>" إلى "-<'. 

بقية الكود الخاص بفتح الملفات النصية وكذلك حفظ الملفات النصية وكود الخروج من البرنامج أو 
إغلاق الملف النصي قد تعرفنا عليها في الأمثلة السابقة. 


وصلنا الآن إلى نهاية الفصل الثالث عشر» وهذا يعني أننا انتهينا من الجزء الثاني من الكتاب 
(أساسات اتوت لخن فى الجر لفكت من لكاب ي تى اكه الم تك وطرق 


خلاصة الفصل الثالث عشر 


من اجل أن قم بالتالي 
فتح ملف نصي نستخدم الدالة ١۵م0ه|]آ۴‏ لفتح الملفات النصية مثال: 


FileOpen(1, OpenFileDialog1.FileName, _‏ 
OpenMode.Input)‏ 
الحصول على سطر من نستخدم الدالة ہام٣‏ ع٣ا‏ متثال 


Dim LineOf Text As String الملف النصي‎ 


الذهاب إلى نهاية الملف 
اللأضي 


إغلاق ملف نصي 


Linelnput plدت~lڊ‎ 


باستخدام الفئة 


LineOfText = Linelnput(1) 
مثال‎ :E0۴ نستخدم الدالة‎ 
Dim LineOfText, AllText As String 
Do Until EOF (1) 
LineOfText = Linelnput(1) 
AllText = AllText & LineOfText & _ 
vbCrLf 
Loop 
]۴ء مثال‎ ٣ نستخدم الدالة #ءه)‎ 
FileClose(1) 
نستخدم الدالة حلام ١1٥٣ا لأخذ النص من الملف النصي إلى متغير نصي»‎ 
ثم نقوم بتفريغ قيمة المتغير النصي بداخل صندوق نص» مثال:‎ 
Dim AllText, LineOfText As String 
Do Until E0F (1) قراءة الأسطر من الملف'‎ 
LineOfText = Linelnput(1) 
AllText = AllText & LineOfText & vbCrLf 


Loop 


txtNote. Text = All ext عرض الملف'‎ 


نضيف الكود 0|.١٣ع5tء/؟‏ كاامم "| أعلى منطقة الكود في النموذج 


(الفورم) ثم نستخدم الفئة ۴83۸٥3067‏ لعرض محتويات ملف نصي 


StreamReader 


باستخدام مجال الأسماء 
My‏ 


لعرض نافذة فتح ملف 


لعرض نافذة حفظ ملف 


بداخل صندوق نص» مثال: 
Dim StreamToDisplay As StreamReader‏ 
StreamToDisplay = New StreamReader( _‏ 
"c:\vbO8sbs\chap13\text browser\badbills. txt")‏ 


TextBox1.Text = StreamToDisplay.ReadToEnd 
StreamToDisplay.Close () 


TextBox1.Select(0, 0) 


نستخدم مجال الأسماء "ع اeSys|)¡‏ ۴ Ny. computer.‏ وکذلك الطریقة 
RA) ext‏ ولنفرض بأننا نريد أن نعرض الملف في صندوق النص 
txt Note‏ كالتالي: 


Dim AllText As String = "" 
AllText = _ 
My.Computer.FileSystem.ReadAllText("C:\txtfile. txt") 


عرض الملف' txtNote. Text = All ext‏ 
نضيف الأداة وهاه ٥۴٥ا¡‏ ۴"هم0 ثم نظهر النافذة بالكود: 
OpenFileDialog1.ShowDialog()‏ 
نضيف الأداة ¥ه )ه0 ]54۷6۴ ثم نقوم بإظهارها بواسطة الكود كالتالي: 
SaveFileDialog1.ShowDialo¥()‏ 
نستخدم الدالة ١0p8ه|]آ۴‏ لإنشاء ملف نصي كالتالي: 


FileOpen(1, SaveFileDialog1.FileName, _ 


خط اتکی الى ات 


تحويل حرف إلى القيمة 
ASCII‏ 


تحويل قيمة ال ASC||‏ 


إلى حرف 


نص اخر 


OpenMode. Output) 
كالتالي:‎ ۴٣ا١‎ ٤]-1 ٣٥ نستخدم الدالة‎ 
PrintLine (1, txtNote. Text) 
كالتالي:‎ ۸5٥ نستخدم الدالة‎ 
Dim Code As Short 
Code = AsC)"^") الناتج سیكون'‎ 5 
کالتالي:‎ Chr ةلIدنl مستخدم‎ 
Dim Letter As Char 
Letter = Ch] )65( الناتڄج سيكون'‎ "A" 
نستخدم الطريقة 4١1٣5طن؟ التابعة لإطارات العمل دوت نت أو نستخدم‎ 
التابعة للفيجوال بيسك مثال:‎ ۸1١ الدالة‎ 
Dim Cols, Middle As String 
"الأول الثاني الثالث" = كاه‎ 
Middle = Cols.SubString(6, 6) 


"اأنتب . < ن اللىي 


الجزء الثالث: تصميم وتحسين واجهة المستخدم 


الفصل الرابع عشر : التعامل مع النماذج »)۴٠٥١۳"5(‏ وأدوات التحكم (كا٥٣٤٣٥))»‏ وقت 


تشغيل البرنامج 


إضافة نماذج جديدة إلى التطبيق 


حتى الآن قمنا بتصميم العديد من التطبيقات» لكن كلها كانت بنموذج (فورم) واحد مع نوافذ 
حوار»وصناديق حوار» ونوافذ لفتح ولحفظ الملفات» كل الاستخدامات السابقة للنماذج وكذلك 
لصناديق الحوار كانت للحوار مع المستخدم فقطء ولكن ماذا إذا أدرنا التعامل بشكل متقدم مع 
المستخدم» كعرض بيانات أكثر وبشكل منظم» لابد من إضافة نماذج جديدة للمشروع» كل نموذج 
جديد نقوم بإضافته يقوم بور اثة قدراته من الفئة System. WiNd0WS. FOF] S.۴0۲‏ . يتوم 
الفيجوال بيسك ۲۰٠۸‏ بتسمية النماذج» فأول نموذج یسمی ۴٥۲۳1‏ والثاني ۴١۲۳١2‏ وهكذا 
ونستطيع تغيير اسم النموذج من نافذة الخصائص عند الخاصية ١۳۴‏ أو عند نافذة حوار إضافة 
نموذج جديد» كل نموذج جديد لابد أن يحتوي على اسم فريد وأدوات خاصة به» وخصائص وكذلك 


كيف نستخدم النماذج 


يعطينا الفيجوال بيسك الخيار في التعامل مع النماذج» فبإمكاننا عرض جميع النماذج في وقت واحد 
وبإمكاننا عرض كل نموذج في وقت الحاجة إليه» ونستطيع عرض أكثر من نموذج لكن نتحكم في 
المستخدم بحيث يستخدم نموذج معین أولا دون غيره ثم نسمح له باستخدام نموذج معين أو بقية 
النماذج. إذا كان لدينا نموذجين أردنا فتح نموذج معين للمستخدم و لا نريد أن نسمح له باستخدام 
النموذج الآخر فيمكننا استخدام 5۸0۷0104 أما إذا أردنا السماح للمستخدم باستعمال النموذجين 
في نفس الوقت فنستخدم .5۸0۷W‏ 

التعامل مع أكثر من فورم 

هل تتذكر برنامج ۸۲٩4۳‏ الذي صممناه في بداية الكتاب (في المرفق ١٠٠)ء‏ ثم قمنا بالتعديل 
عليه في الفصل العاشر (بالمرفق )٠۲۹‏ لعلك تذكرت» لنأخذ البرنامج في المرفق ٠۲۹‏ ثم نحاول 
التعديل عليه بإضافة نموذج جديد للبرنامج ليقوم هذا النموذج بعرض معلومات عن التطبيق› 
سنسمي هذا النموذج ١۴٣|۲1۴1ء‏ بعد فتح البرنامج نذهب إلى أعلى يمين بيئة التطوير حيث اسم 
البرنامج ۸۲٩۵۳‏ ثم نضغط )ء1))-۸واR‏ عليه» ونختار ل۸ ومنها ۴۳ا "۵W‏ سيفتح لنا 
الفيجوال بيسك ۲٠٠۸‏ نافذة حوار من خلالها نختار ما نريد أن نضيف للمشروع» بإمكاننا إضافة 
نموذج (فورم)» فئة (كلاس)» أو شاشة حول» أو أداة خاصة أو أداة تقارير أو غيرهاء نختار هنا 


Windows FM‏ ونقوم بتسميتها 181|٣۴0.۷‏ في نفس النافذة» سيقوم الفيجوال بيسك 
بإضافتها إلى المشروع. 


ملاحظة: هناك العديد من النماذج التي قد نحتاجها لإضافتها للمشروع» وتلك النماذج مصممة بشكل 
شبه جاهز للعمل علیهاء مثل ۴٥۲۳‏ ۴۲٤0۲)م×E‏ والذي یضیف لنا مستکشف شبیه بمستکشف 
الويندوزء أو يمكن إضافة شاشة 'حول البرنامج"'» معرفة هذه النماذج تسهل لنا عملية إضافتها 
للمشروع في وقت الحاجةء بإمكانك إضافة ما تريد لمشروعك وتجربته ثم حذفهء لحذف ما أضفته 
لمشروعك قم بوضع الماوس على النموذج ثم اختر de ۴ا٥۳ ۴٣٥ز e٤)‏ uاEX×c‏ فسيقوم الفیجوال 
بيسك بحذف النموذج من المشروع بدون أن يحذفه من جهاز الكمبيوتر» أما إذا أردت أن تحذف 
نموذج من المشروع وجهاز الكمبيوتر فاختر ع)عام0. 


بعد إضافة النموذج 1611١۴١‏ إلى مشروعك قم بفتحه ثم أضف إليه بعض الكائنات وقم بتعديل 
بعض خصائصه ليصبح النموذج كالتالي بعد التعديل عليه: 


LEK 


تجليمات للتجامل مح شذا البرناصج 


الآن نضيف الكود التالي للحدث )٤1ا‏ التابع للزر 'موافق': 
Me.DialogResult = DialogResult. OK‏ 


لتوضيح الكود أعلاه يجب علينا أولا بأننا سنتعامل مع النموذج ٣۴١‏ 1م1۴1 على أساس أنه نموذج 
للحوار (مثل صناديق الحوار)ء عند التعامل مع النموذج على هذا الأساس يجب أن نكتب في الكود 


الذي يقوم بإظهار النموذج التالي: يهاه¡W0٥"؟‏ وليس 10W‏ $« فف„ ShowDialog liq ll‏ 
في أمر إظهار النموذج فسيظهر النموذج على أساس أنه نافذة حوار وبسبب ذلك لن يستطيع 
المستخدم الرجوع إلى النموذج الأولي إلا بعد أن يغلق النموذج الحواري» أما إذا استخدمنا الأمر 
۷ لوحدها فسيتعامل النموذج مع المستخدم على أساس أنه نموذج مستقل» ويستطيع المستخدم 
التعامل مع النموذج المفتوح والنموذج الأولي في نفس الوقت. انيا بعد فتح النموذج على أساس 
لأنه نموذج للحوار لابد أن يعود هذا النموذج مع نتيجة الحوارء والنتيجة ستكون بالنفي أو 
بالإيجاب» فالكود أعلاه يعني أن نتيجة الحوار بالإيجاب» ونستطيع وضع أكثر من زر أحدهما 
'موافق"' والآخر 'غیر موافق"' والتالث 'إلغاء الأمر' وكتابة الكود لکل زر من الأزرارء حیيث 
ستتغير الكلمة الأخيرة مع كل زر. 
بعد فتح النموذج سيقوم هذا النموذج بفتح ملف نصي في التعليمات ليقرأه المستخدم» وسنستخدم 
الفئة t۴2 R ed۲‏ ولذلك لابد من إضافة مجال الأسماء التالي في أول الكود: 
Imports System.IO‏ 


استيراد مجال الأسماء 0|.٣ع‏ 5/5 سيسهل لنا التعامل مع الفئة 6t re83 R2۲‏ نقوم بعد 
ذلك بكتابة الكود التالي في الحدث 1٠۵١4‏ التابع للنموذج ليقوم النموذج بعرض معلومات الملف 
النصي بعد فتحه مباشرة على افتراض أن الملف النصي في المسار ٥:1‏ أما إذا كان الملف النصي 
في مكان آخر فيمكننا تغيير المسار في مرحلة الكود: 
Dim Stream ToDisplay As StreamReader‏ 
StreamToDisplay = _‏ 
New StreamReader('c: \readme. txt")‏ 
TextBox1.Text = Stream ToDisplay.ReadToEnd‏ 
StreamToDisplay.Close ()‏ 
TextBox1.Select(0, 0)‏ 
في الكود أعلاه قمنا بتعريف nllتغıر StreamReader ai lui yJe StreamT o Display‏ 
ثم سمحنا ل ۷هامءآ0 "هه5۲ بقراءة ملف نصي في المسار :2ء بعدها قمنا بإسناد النص 


الموجود في المتغير yهامءآ٥١‏ "ه5۲۴ إلى صندوق النص ۲۴×80×1 ليقوم بعرض النص 
الموجود في الملف النصي بداخل صندوق النص» بعدها قمنا بإغلاق الملف النصي (بالطبع بعد أن 
تكون محتوياته على صندوق النص في النموذج)» وإذا كان هناك تظليل في النص الموجود في 
صندوق النص قمنا بإزالة ذلك التظليل بواسطة السطر الأخير من الكود. 
الآن انتهينا من نموذج ١۴١|ام1#1‏ وسنعود إلى الفورم الأولى لكتابة كود يسمح للنموذج 
0م181 بالعرض» ولتنفيذ ذلك نضيف زر على النموذج الأول ونعدل الخاصية ٠۴×٤‏ له على 
'معلومات"» نقوم بالضغط )٤1)٣-عاطاه(‏ على الزر المضاف ونكتب الكود التالي: 

My.Forms. HelpInfo.ShowDialog() 
ليقوم التطبيق بإظهار الفورم ١۴٣ام1#1 على أساس أنها نافذة للحوار. للعلم نستطيع كتابة الكود‎ 
أعلاه بطريقة أخرى كالتالي:‎ 

HelpInfo.ShowDialos() 

نقوم الآن بتنفيد البرنامج» ونتأکد من وجود الملف النصي readme‏ علی المسار ثم نقوم 
بالنقر على الزر 'معلومات" من النافذة التي تظهر وستظهر لنا النموذج الجديد الذي أضفناه مع 
المعلومات الموجودة في الملف النصي المذكور في المسار المحدد كالتالي: 


a HE HelpInfo 


تجليقات للتجامل مح شذا البرناضصج 


Lucky Seven Slot Machine 2,5 


(cj Copyright Michael Halvorson 1335-2008 


المشروع موجود في المرفق رقم ٤٠١‏ .. 
تحدید موقع النماذج على سطح المكتب: 


بعد تصميم البرنامج الذي قد يحتوي على أكثر من نموذج» نحتاج لأن يظهر النموذج الأول في 
وسط الشاشةء ونموذج آخر في أعلى الشاشة والنموذج الثالث في وسط النموذج الثاني وهكذاء أو 
قد نحتاج لتغيير مكان ظهور نموذج معين إذا اختار المستخدم خيار معين. في الفيجوال بيسك “ 
وبعد إضافة النموذج للمشروع يُظهر لنا الفيجوال بيسك خانة صغيرة تسمى ا۵ا ۴٥۲۳‏ فيها 
شاشة النموذج بداخل شاشة الويندوز وباستخدام الماوس نستطيع تغيير مكان ظهور النموذج في 
وقت تشغيل البرنامج. أما في فيجوال بيسك ۲۰۰۸ فالأمر يتغير J‏ وجود Form Layout JÛ‏ 
وإنما نستطيع تغيير مكان النموذج على الشاشة بواسطة خاصية تسمى كل 0u‏ 8مها)ءه0. في 
نفس الوقت نستطيع تحديد مكان النموذج باستخدام الخاصية 54۲۴05110١‏ ومنها نستطيع أن 
نختار أحد هذه الخيارات: اهلامج" وعند تحديد هذا الخيار لابد أن نذهب إلى الخاصية 

c0‏ |1 ونقوم بكتابة مکان ظهور النموذج بالأرقام» )8۸8۲5٤۲۵۵۸۳‏ يقوم بوضع النموذج 
في وسط الشاشة وهذا الخيار مفضل عند كثير من المبرمجين› WindowsDefau(\tL0Cati0^‏ 
هذا الخيار الطبيعي المعتمد في حالة لم تقم بتحديد أحد الخيارات ويقوم بوضع النموذج في المكان 
الذي يراه نظام التشغيل مناسبا وعادة ما يكون النموذج في أعلى يسار الشاشةء 
Window sDefaultBounds‏ هذا الخیار یقوم أو لا بتغيير طول وعرض النموذج ثم يقوم 
بوضعه في المكان الذي يقترحه نظام الويندوز وعادة ما يكون أعلى يسار الشاشةء أما الخيار 
entrar‏ فيعتبر مناسب للتطبيقات الكبيرة التي تحتوي على أكثر من نموذج (النموذج 
الأب والنماذج الأبناء) ويقوم بوضع النموذج الابن في وسط شاشة النموذج الأب (فمثلا برنامج 
المبيعات والمخازن الرئيسي يعتبر النموذج الأب» أما شاشة إصدار الفواتير فتعتبر النموذج الابن 
ومن الأفضل وضع النموذج الابن في وسط شاشة النموذج الأب). المثال التالي يوضح كيفية وضع 
النموذج في المكان المناسب على الشاشة: 


My Desktop BOUNdS pمlڊ‎ جمliرب نقوم بإنشاء‎ ¬١ 


Starts tin‏ ونضبطها على الخيار K€ ۸8۲5٤۳۲۵۵۸‏ نقوم بتنفيذ البرنامج ماذا 


" My Desktop Bounds (Running} - Microsoft Visual Studio 
File Ed View Projet Bulk Dêbûğ Cita Fûriat Têl: Têš Wiîrdow Hek 
کا ی ی لھ لھ لک ہک کی کے ا کک کے کے اھ کک س س می کاک ت کیک کا ی ا ا کل‎ 


Formi wb [Design]3 ن ي‎ wx Solution Eploret YF x«| 
أ‎ EEE 
| Î My Desktop Bounds 


Ea] My Praject 
=2] Forml wb 


E Formî 


4 Solution Explorer rı Dakê Soijîêêš 

| | Fropaties TE 
| Form Sytem. Wirgliws.Forths.Fûfir 
HEHEHE 

| Shomlnfaskhar True 2ُ 
(El size 300; 0Q 

| SizeGnipstyla Auto 

||  3tartPoskion CenterScreen 


Tag‏ | أ 
Text Formil‏ | 
Topost False‏ ا Immediate Wridoey‏ 


| Transparencyke |__| 
| USEVWaiCuFSêr False 3 | 
| WirdowState Normal -ُ 


#| 


| StartPosilion 
s kive positi FE TNE EET 


| t first appears. 
ک8 ی‎ 


Ren, 


نلاحظ بأن النموذج يظهر في منتصف الشاشة بالضبطء نغلق البرنامج ونذهب إلى الخاصية 
tartPositin‏ ومنها نختار أھلا "۵٣‏ » بعد تحديد هذا الخيار سيعتمد الفيجوال بيسك 
على الخاصية 10٤310١‏ التابعة للنموذج ليحدد مكان النموذج» وعليه نذهب للخاصية 
Wnهع‏ 1 ونكتب القيم )٠١ »٠٠١(‏ فيها ثم نقوم بتنفيذ البرنامج» سيقوم الفيجوال بيسك 
بتحريك النموذج بمقدار ٠٠١‏ نقطة من يسار الشاشة وبمقدار ٠١‏ نقطة من أعلى الشاشة: 
القياسات هنا بالبكسل (ونسميه نقطة): 


lem 
نظ ت اذد 3 تە ا ی‎ 
ı Î My Desktop Bounds 
Bal My Project 
E Forml.vb 


4 Solution Explorer [JD Sources 
| Properties 


Rx‏ ا 
Forml System. irdloves, Forms.Forr ”‏ 
ب Î‏ 5 
ا 
El Location 100; 50 =‏ 
1û‏ # 
50 8 
Locked False‏ | 


| MainMenuStrip {none) 


| . Hx |  MazimizeRor True 


|| E Maximumêize 0;0 
| mmimizeBox True | 
JE mnimumšlze ûjû 
| Opacity 100% 
| Faddna 0; 0:0:0 | 
¥ 
FE ZERE" REFE 
| سسس س سس س س س سسس سی‎ ٠ ۳٠۳٠۳٠ ا ااا‎ 
Rezly 


تعلمنا الآن استخدام الخاصية 5۲۴051٤10١‏ والاآن سنتعلم كيفية التعامل مع النموذج الثاني في 
مشرو عنا باستخدام كئل۸ 050801 سنقوم الآن بإضافة نموذج جديد للمشروع بواسطة الكود 
(لن نستخدم) ۴۳ا ۸٥W‏ ۸44 وستقوم بتحديد مكان هذا النموذج على الشاشة بواسطة الكود 
كذلك كالتالي: 


١-نقوم‏ بإاضافة زر جدید للنموذج الحاليء وفي خاصية Text‏ نکتب "إضافة نموذج"' 


۲-نقوم بالضغط نقرتين على الزر وفي حدث ۸٤ا‏ التابع للزر نكتب هذا الكود: 


۴۳2 باسم للمشروع جديد نموذج إضافة' 

Dim form2 As New Form 

اكفاك اودع احتحه انودع الحابة ج18 اة متجذية قد 
النموذج شكل بتحديد نقوم الوقت نفس في 

FOFMZ.TEE = Tao اأ‎ 

form2.FormBorderStyle = FormBorderStyle.FixedDialog 

EP OLEN. |. Manual‏ اخاهية تتغهر تشقوة' 

form2.StartPosition = FormStartPosition.Manual 

النموذج مقاسات لحفظ مستطيل متغبر بتعريف نقوم' 

(100 ,200) هي 'الجساز أغلى مهن المساقات' 

(250 ,300)/ ها .لالتمودج و الإرئتقاع. اللعرض' 

Dim Form2Rect As New Rectangle (200, 100, 300, 250) 


الشاني التفودخ إل أعلاة الخستفيل ‏ إحد اتات متتل خقرم' 
form2.DesktopBounds = Form2Rect‏ 

حواري نموذج أنه أساس على الجديد النموذج بعرض نقوم' 
form2.ShowDialog ()‏ 


لاحظ الفرق بين التعليقات والكود حيث أن التعليقات تبداً ب “ ولونها أخضر 


الكود أعلاه لا يحتاج إلى شرح وإنما يحتاج لقراءة التعليقات» وللعلم توجد نسخة من المشروع 
أعلاه في المرفق ٠٠٠١‏ نقوم الآن بتنفيذ البرنامج ونقوم بالضغط على الزر "إضافة نموذج" يا إلهي 
ماذا يحدث» لقد ظهر لنا نموذج جديد (الذي قمنا بتصميمه برمجياً فقط) مع الخصائص التي 
حددناهاء لاحظ الصورة: 


HE Form" 


النموذج الثاني 


تصغير وتكبير واستعادة النماذج 
وزر التكبير في أعلى النموذج وإذا لم فلابد من تفعيلهما من الكود كالتالي: 
form2.MaximizeBox = True‏ 


form2.MinimizeBox = True 


بعدها نستطيع تكبير وتصغير النموذج واستعادته بالكود كالتالي» كود التصغير : 


form2.WindowState = FormWindowState.Minimized 


کود التكبير 
form2.WindowState = FormWindowState.Maximized‏ 
كود الاستعادة: 
form2.WindowState = FormWindowState. Normal‏ 
لحصر تکبیر أو ت a a‏ 
Maximum Sie‏ و الخاصية 1١1۳1۳12٥‏ ونستطيع تحديد ذلك بواسطة الكود بحيث نعرف 
قالب للمساحة ثم نسحب مساحة هذا القالب إلى الخاصية "57٥‏ ا" 1×ه۸ أو للخاصية 
Minimum‏ کالتالي: 
Dim FormSize As New Size (400, 300)‏ 
form2.MaximumSize = FormSize‏ 
إضافة الكائنات إلى النماذج وقت تشغيل البرنامج 
في المتال السابق (والموجود في المرفق )٠٤١‏ قمنا بتعريف نموذج جديد ۴0۲۳١2‏ بواسطة الكود 
وقمنا كذلك بإضافته للمشروع» ليس ذلك فقط فقد قمنا بتحديد العديد من الخصائص التابعة له 
بواسطة الكود» تلك العملية حفزتنا لنقوم بالعديد من المهام بواسطة الكود» فمثلا نستطيع إضافة 
E‏ اللي ترات انت رکون برناجنا تتم ومثابً نو خسسة نجرم سي 
بتعريف لل 
Dim button1 As New Button‏ 
طبعا قبل التعريف أعلاه يجب أن نتأكد من عدم وجود زر سابق يحتوي على نفس الاسم 
1اا بعد ذلك يمكننا تحديد خصائص الكائن المضاف إلى النموذج كالتالي: 


button1. Text = "Click Me" 


button1.Location = New Point(20, 25)‏ 
الكود الأول يقوم بتعبئة الخاصية ٠٠×‏ التابعة للزر 1١0لا‏ والكود الثاني يقوم بتحديد مكان 
الزر على النموذج. بعد تعريف الكائن وتحديد الخصائص المهمة نقوم بإضافة الكائن للنموذج: 
form2.Controls.Add(button1)‏ 
قمنا في الكود أعلاه بإضافة الزر 1١0لا‏ إلى النموذج ۲۳2٥ء‏ أما في حالة ما إذا كانت 
الإضافة هي لنفس النموذج الذي يوجد فيه الكود فيمكننا كتابة الكود أعلاه بطريقة أخرى: 
Me.Controls.Add(button1)‏ 
فالكود أعلاه يقوم بإضافة الزر 1١۷0ا‏ إلى الفورم الحالي» في المثال التالي سنتعلم كيفية 
إضافة ليبل )٥اه‏ ا وكذلك زر لنموذج بواسطة الكود وكذلك كيف نجعل الليبل )56ها يقوم 
١‏ نقوم بإنشاء مشرو ع جدıد‏ ڊlٺم My Add Controls‏ 
×16 للزر إلى "إظهار التاريخ'. 
٣-نقوم‏ بالنقر مرتين على الزر 1١0)لا8‏ ونكتب الكود التالي في محرر الكود: 
نقوم بتعريف نموذج جديد مع مكوناتها' 
Dim form2 As New Form‏ 


Dim l\lblDate As New Label 


Dim btnCancel As New Button 
تدك ,الخضناتصن الان لينل‎ 
lblDate. Tex = :التاريخ الحالي ھر"‎ " & DateString 


lblDate.Size = New Size(150, 50) 
lblDate.Location = New Point(80, 50) 


وكذلك خصائص الزر' 
"llغel"‏ = btnCancel. Text‏ 

btnCancel. Location = New Point(110, 100) 

وخصائص النموذج' 

f٥۲ ۳٣2. ۲٥×) = "التاريخ الحالي"‎ 

form2.CancelButton = btnCancel 

form2.StartPosition = FormStartPosition.CenterScreen 
نقوم بإضافة كائنات جديدة إلى مجموعة الكائنات على النموذج'‎ 
form2.Controls.Add(lblDate) 
form2.Controls.Add(btnCancel) 

نقوم بعرض النموذج على أنه نموذج حواري' 


form2.ShowDialos() 


في السطور الثلاثة الأولى من الكود قمنا بتعريف النموذج الجديد» لاحظ سهولة تعريف نموذج 
جديد في الكود ليتم إظهاره لاحقاً وكل هذا بالكود فقط بدون إضافة حقيقية وقت التصميم هذه الميزة 
تسهل علينا العديد من المهام البرمجية في البرامج الكبيرة والمتوسطةء لاحظ كذلك التعليقات على 
الكود بين الأسطر البرمجية (السطر الرابع» الثامنء الحادي عشر» الخ) هذه التعليقات تسهل علينا 
عملية قراءة الكود لاحقأء تخيل بأننا نقوم بقراءة الكود بعد ثلاث سنوات من كتابته أو تخيل بأننا 
نعمل كفريق على تطوير برنامج واحد فلابد أن يفهم البقية كل سطر في الكود» عند تحديد 
خصائص الزر و الليبل قمنا بتحديد المساحة لكل منهما وكذلك المكان الجغرافي على النموذج» أما 
النموذج الجديد فقد قمنا بتحديد منطقة تواجده على الشاشة حيث توسط الشاشة بالخاصية 
.StartPosition‏ أما الخاصية ut t0۸‏ 8)عCanc‏ فتعنی بنقل الضغط على الزر ٤5٤‏ في 
الكيبورد إلى الزر إلغاء (بمعنى آخر إذا ضغطنا على الزر إلغاء أو الأمر ٤5٤‏ في الكيبورد 


فكلاهما يقومان بنفس العمل) والذي يقوم بدوره بإغلاق النموذج. نقوم الآن بالضغط على ۴5 
لتنفيذ البرنامج» ثم نضغط على الزر "إظهار التاريخ" سنرى مثل هذه الشاشة: 


EE Farm1 


التاريخ الحالى إ8 


التاريخ الحالي شو لاء ٠ءء‏ 


lz. AAA{btnLanceE 1l; 
: بعرض النموذجع على أنه‎ 


قد تلاحظ أن التاريخ في جهازي (كما في الصورة) يبدأ بالشهر ثم باليوم ثم بالسنةء نستطيع تغيير 
طريقة ظهور التاريخ من لوحة التحكم ثم الإعدادات الإقليمية. 


التطبيق أعلاه موجود في المرفقات رقم ٤١‏ .. 
ترتيب الكائنات على النموذج 
عند إضافة الكائنات بطريقة برمجية إلى الفورم نلاقي بعض الصعوبات في تحديد مكان وضع 


الكائن على النموذج (المكان الجغرافي إن صح التعبير)» حيث لابد من تحديد النقطة الأفقية التي 
يبدأ الكائن عندها وكذلك تحديد النقطة العموديةء راجع الكود للتطبيق السابق: 


btnCancel.Location = New Point(110, 100) 


فلابد من تحديد النقطتين × و ¥ على النموذج» ولتحديد هذه النقطتين لابد من التجربة والخطأً في 
مرحلة التصميم وتجربة الكود» لكن هناك طرق ملتوية لتفادي مثل هذه الصعوبة ومنها القيم التابعة 
بالخاصيتين ۸١٤۸0۲‏ و 00٤)‏ حيث تحافظ الأولى على الابتعاد مسافة معينة من حافة النموذج» 
بينما تقوم الخاصية الثانية بإجبار الكائن بالالتصاق بإحدى حواف النموذج» نستطيع التعامل مع 
الخاصيتين بواسطة الكود وبهذه الطريقة نستطيع تنظيم الكائنات على الفورم إلى حد ما. في المثال 
التالي سنتعلم كيفية استخدpl :Dock ş Anchor‏ 


My Anchor and DOCK 4يniy بإنشاء تطبيق جديد‎ موقن-١‎ 


-٣‏ بعد فتح النموذج نقوم بإضافة صندوق للصورة ×80 ۲۴ا٤۴‏ في أعلى وسط النموذج» 
ونضیف صندوق نص ×۲۴×80 ونعدل الخاصية ٣٥‏ آاا) Nu)‏ على ع٥٣٦‏ ثم نقوم 
بتكبير صندوق النص ليشمل النصف السفلي من النموذج» ثم نضيف زر ١0ا8‏ إلى 
أسفل يمين النموذج. 


٣-نقوم‏ بتعديل بعض خصائص النموذج وكذلك الكائنات على النحو التالي: 


صندوق الصورة Image‏ نختار الصورة 51۸.1٤٥0‏ 

زر Text Butt0n1‏ اترتيب الآن' 

ق ان Text‏ 'مثال على ترتيب الكائنات على 
النموذج' 


ستكون الفورم كما في الصورة: 


Farmî ك‎ E x 


مثالا على ترثيب الكائنات على النموذج 


نضغط )عء)٣-عاطuام0‏ على الزر "ترتيب الآن" ونكتب هذا الكود: 
PictureBox1.Dock = DockStyle. Top‏ 
TextBox1.Anchor = AnchorStyles. Bottom Or _‏ 
AnchorStyles. Left Or AnchorStyles. Right Or _‏ 
AnchorStyles. Top‏ 
Button1.Anchor = AnchorStyles.BOottom Or _‏ 
AnchorStyles. Right‏ 
قمنا بتغيير الخاصية 00٤)‏ لصندوق الصورة إلى م۳٠۲ 00)5٥.‏ ليقوم صندوق الصورة 
بالالتصاق بأعلى النموذج» أما صندوق النص فسيحافظ على المسافة الموجودة بينه وبين حواف 
النموذج الأربع» فإذا كان قريب من نهاية النموذج بمسافة معينة فسيحافظ عليها حتى إذا قمنا بتكبير 
الفورم أو تصغيره» وسيقوم الزر بالمحافظة على المسافة بينه وبين الحافة السفلية وكذلك اليمنى 
للنموذج» راجع الكود. قم الآن بتتفيذ البرنامج وقم بتغيير حجم النموذج تكبيرا وتصغير وقم 
بالضغط على الزر 'ترتيب الآن'» قم بالضغط على الزر ثم قم بتكبير الفورم» كرر العملية مرات 
وقم بتغيير ترتيب الضغط على الزر ثم تعديل مساحة النموذج ولاحظ التغييرات التي تحدث 
للنموذج وللكائنات الموجودة عليه. المثال موجود بالمرفق .٠. ٤١‏ 


خطوة إضافية للأمام: تحديد الكائن الذي يظهر في بداية تنفيذ البرنامج 


إذا احتوى التطبيق الذي صممناه على أكثر من نموذج (أكثر من فورم) يقوم برنامج الفيجوال 
بيسك بجعل النموذج الأول )۴١۲۳١1(‏ هو النموذج الذي يظهر أولا عند تتفيذ البرنامج» لكننا 
نستطيع تغيير ذلك من خصائص التطبيق ونجعل نموذج آخر يظهر بدلا منه. كما في المثال التالي: 
١۱-ننشٺئ‏ مشرو ع جدıد‏ ڊlسم‏ Mث/FO My Startup‏ 
نضيف نموذج ثاني للمشروع. 
٣-لتغيير‏ النموذج الذي يظهر في بداية تشغيل التطبيق نذهب إلى القائمة ا٤٥ ۴۲٥١[‏ ونختار 
منھا sھi† My Startup Proper‏ لتظهر لنا هذه النافذة التي نختار منها نموذج بداية 
التشغيل: 


| Application 
Assembly name: Root namespace: کک‎ 
Compile My Startup Form My_Startup_Form 1 
Debug Application type: Icon: 
Windows Forms Application w | {Default Icon} n 1 
References 
Startup Form: 
RESDUFCES Forma a 4 
Form آ‎ 
can kings 
settings 
#| Enable application framewar! 
Signing 8 : 
Windows application framework properties 
My Extensions [¥] Enable #P visual styles 
Security |_| Make single instance application 
#| Save ly. Settings on Shutdown 
Publish 
Authentication mode: 
YiridaYS e ا‎ 


جرب تغيير نموذج بداية التشغيل إلى ۴١١۲۳2‏ ثم قم بتنفيذ البرنامج ولاحظ ظهور النموذج الثاني 
ار 
خلاصة الفصل الرابع عشر 


من اجل أن قم بالتالي 


ا 


الانتقال من نموذج إلى 


اد 


إضافة نموذج آخر 


للمشروع بواسطة الكود 


تحديد مكان النموذج 


على سطع المكتب وقت 


»Add نختار‎ مû‎ Add Windows Form رlتخi‎ Project من قائمة‎ 


اسم المشروع في أعلى يمين بيئة التطوير في Solution Exp|l0rer‏ 
نستخدم 50W‏ أو چه‌اھ¡۸0W0؟‏ کالتالي: 
form2.ShowDialog()‏ 
أو نستخدم المجال «۷.۴0١۲۳۸۶‏ كالتالي: 
My.Forms.form2.ShowDialog()‏ 
ونستطيع استخدام الكائن 0 لإخفاء النموذج كالتالي: 
Me. Visible = False‏ 
أو لإظهار النموذج كالتالي: 
Me.ShowDialog()‏ 
مع ملاحظة أن ۸۵ يجب استخدامها ضمن النموذج نفسه»ء أي ضمن الكود 
الموجود بداخل نفس النموذج» ولا يمكن تطبيقها على نموذج ثاني غير الذي 
قود ارا قريف الودج ف فاا الخضامن اعام 
Dim form2 As New Form‏ 
'النموذج الجدید" = × ۴٥۲۳2.1٥‏ 


tartPositio‏ فنختار منھا مغلا CenterScreen‏ ليظهر النموذج في 


تتفيذ البرنامج 


تحديد مكان النموذج 
على سطح المكتب 
باستخدام الكود 


تكبير وتصغير النموذج 
وقت تشغيل البرنامج 


إضافة كائن إلى 
النموذج وقت تنفيذ 
البرنامج 


وسط شاشة الكمبيوتر» أو نختار 0۴١8۲۴4۲۵١٤‏ ليظهر النموذج في وسط 
النموذج الأب (إذا وأجد). 
نقوم بتغيير الخاصية 10۸٤ء۴‏ ۲۲هt؟‏ إلى أھuامa"‏ ثم نقوم بتعريف شكل 
مستطيل ليقوم هذا المستطيل بحفظ مساحة النموذج ومكان تواجده على 
الشاشة» بعدها نستخدم الخاصية كل 5080ع( لتقوم برسم النموذج في 
المكان المحدد على شاشة الكمبيوتر كالتالي: 
form2.StartPosition = FormStartPosition. Manual‏ 
Dim Form2Rect As New Rectangle _‏ 
(250 ,300 ,100 ,200( 
form2.DesktopBounds = Form2Rect‏ 
لابد من تغيير الخاصيتيj True yl! MinimizeBox , Maxi mizeB0OX‏ 
yİÎ FormWindowState.Minimized yle WindowState‏ 


yÎ FormWindowState. Maximized 
FormWindowState. Normal 


نقوم أو لا بتعريف الكائن» ثم تحديد خصائصه ثم نقوم بإضافته إلى مجموعة 
الكائنات على النموذج: 
Dim button1 as New Button‏ 
"الزر الجديد" = button1. 1 ext‏ 


button1.Location = New Point(20, 25) 
form2.Controls.Add (button1) 


معينة من أحد حواف 


لصق الكائن بإحدى 
کات اود 
تحديد النموذج الذي 
رظ عند nee‏ یز 


البرنامج 


إذا أردنا المحافظة على مسافة معينة لكائن معين من حافة من حواف النموذج 
فنستخدم الخاصية ۸٤۸0۲‏ وتحديد الحافة التي نريدء مع ملاحظة أننا 
نستخدم المعامل 0۲ إذا أردنا المحافظة على مسافة معينة مع أكثر من حافة: 
Button1.Anchor = AnchorStyles. Bottom Or _‏ 
AnchorStyles. Right‏ 
نستخدم الخاصية 00٤)‏ لتحديد الحافة التي نريد أن يلصق الكائن بها: 
PictureBox1.Dock = DockStyle. Top‏ 
من قائمة )ز٥۴۲‏ نختار My Startup Properties‏ ومن الخاصیة 
tartup ۴۳‏ نختار النموذج الذي کول يفتح أو لا عند تشغیل 
A‏ 


نستطيع كذلك إنشاء تطبيق لا يحتوى على نماذج ولا على أيه كائنات مرئية بواسطة إنشاء مشروع جديد 
ونختار 1)210۸)ممA‏ عامnsه‏ تم نقوم بكتابة كود التطبيق في وحدات برمجية esاں ۸d‏ حیث لا 
توجد نماذج ثم نقوم بتنفيذ البرنامج والذي سيظهر مثل برنامج سطر الأوامر 1|٣٥ 02٣٩‏ الذي 
كان موجودا في أنظمة التشغيل القديمة. 


الفصل الخامس عشر: إضافة تأثيرات رسومية ومتحركة 


التعامل مع الرسوميات باستخدام مجاJ‏ lالأlnء System. Drawing‏ 


تعلمنا سابقاً كيف نقوم بإضافة الصور وغيرها من الرسوميات إلى النماذج بواسطة الفيجوال 
بيسك» فقمنا بالتعامل مع صناديق الصور وغيرهاء الآن سنقوم بالتعامل مع ما يسمى بدوال ال 
ا الموجودة ضمن مجال الأسماء 5/١.0۷ 1١4‏ التي تأتي ضمن إطارات العمل الدوت 


نت» والتي نستطيع من خلالها التعامل مع الصور وكذلك رسم الأشكال الثنائية الأبعاد بداخل نظام 


الويندوز. 
فهم طبيعة النماذج 


قبل أن نفكر في إنشاء الرسومیات على النموذج»› یجب فهم تصمیم النموذج أو ما یسمی ۴٣0٥۳١‏ 
اء فكل نموذج له تصميمه الخاص حيث يبدأ هذا التصميم من نقطة معينه في أعلى يسار 
الشاشةء التخطيط أ والتصميم الطبيعي يكون على شكل صفوف وأعمدة تتكون من نقاط صغيرة 
جدا وهذا ما يسمى بالبكسل )ع×¡۴ أي الطريقة النقطية للرسم. هذه النقط ترسم على المحورين 
الأفقي والعمودي يمثل المحور الأفقي الرمز × بينما يمثل المحور العمودي الرمز لء وعندما نحدد 
نقطة معينة على النموذج (الفورم) فهذه النقطة هي عبارة عن نقطة تلاقي المحور الأفقي مع 
المحور العمودي (لإ ,×)ء وعليه فأعلى نقطة في يسار النموذج تساوي القيمة (0 ,0)» انظر 
الشكل التالي الذي قام برسمه المؤلف ليشرح لنا هذه الفكرة: 


0,0) x= 128 pixels 


¥ اول نقطة 


al Coordinates 


ا ا ا 


N7 
y=56 pixels المتورالأفقي )128,56( چ‎ 
1 
0 ۴۸ النقطة‎ 


المتور العمودي ” وأجج-ر 


يقوم الفيجوال بيسك بالعمل بشكل آلي مع كرت الشاشة لتحديد كم عدد الصفوف والأعمدة وماذا 
يوجد في كل نقطة من نقاط الصفوف والأعمدةء لاحظ الشكل: 


)0,0( ال طك 


(15,10) النقطة )١,4١‏ النقطة 


عند وجود نقطة واحدة فتعتبر نقطة فقطء لكن عند وجود مجموعة نقاط فهذا يعني أنه لدينا خط أو 
دائرة أو مستطيل أو غيرها من الأشكال الرسوميةء سنتخيل الآن شاشة الكمبيوتر وهي تتكون من 
العديد من الصفوف الأفقية والأعمدةء ونتخيل كذلك كيف يقوم الكمبيوتر بخداعنا عندما يعرض لنا 
شكل من الأشكال (دائرة» مستطيل» خط مستقيم) حيث يعرض لنا مجموعة من النقاط المتناهية في 
الصغر ونرى هذه المجموعة من النقاط على أنها خط مستقيم أو دائرة لتوضيح الفكرة أكثر لاحظ 
الشكل التالي للأيقونة التي استخدمناها في التطبيق السابق: 


SUIN.ICO - Icon ...32, 4 bit, BMP] Start Page 


ولاحظ شڪل 
الأيقبفة التي 


٠ فراها‎ 


7 
1حظ شكل الأيقينة اللي # 


مجموعة من النقاط تي صقوك وأعمدة 


System. Drawing. Graphics ةûفلl‎ 


يحتوي مجال الأسماء ۳.0۲3W 1١١‏ ء5 على العديد من الفئات التي تساعدنا على التعامل مع 
الرسوميات في برنامجناء سنتعرف الان إلى ٤٤۸٣م System. اraWin3. 6 ra‏ التي تعنی برسم 
الأشكال على النماذج. يمكنك معرفة بقية الفئات بالرجوع إلى التعليمات المرفقة بالفيجوال بيسك 

: 6٣4م١ الجدول التالي يحتوي على بعض الطرق كل0 "اع" المتوفرة ضمن الفئة‎ . ٠۸ 


الشكل 
الخط المستقيم 


الطريقة 


DrawLine 


DrawRectangle 


DrawArc 


DrawEllipse 


DrawPolygon 


DrawCurve 


الوصف 
لرسم خط يوصل بین نقطتین 


لرسم مستطيل أو مربع يُوصل 
لرسم قوس أو خط منحنى» 


Nae £ 


جزء من 'دائرة 


لرسم شكل دائري أو بيضاوي 
محدود بو اسطة مستطيل . 

لرسم مضلع» شكل يحتوي على 
العديد من الأضلاع والزوايا 
تخزن قيمها بداخل مصفوفة. 
هذا المنحنى نقوم بتحديد النقاط 
التي يمر فيها وخزنها في 
مصفوفة» بخلاف القوس في 
الطريقة 0۲W A۲٤١‏ حيث يتم 


جميع الطرق أعلاه تقوم برسم أشكال فارغة على الفورم» وهناك طرق كل٥‏ ۸ه أخرى تقوم 
برسم أشكال مغطاة بالألوان» هذه الطرق تستخدم نفس الأوامر السابقة باستبدال 0۲W‏ بالبادئة 
)۴ فنكتب ۴¡))R ect an)‏ بدلا من aWRectangleتDr.‏ عند استخدام 
System .Drawing. Graphics‏ لرسم الأآشکال علی النماذج لابد من استخدام (کائن وسیط) قلم 
۴٥٣‏ أو فرشاة ۸کلا8۲ للرسم فعند رسم خط مستقيم أو شكل فار غ يمكننا استخدام القلم أما إذا 
أردنا رسم الأشكال المليئة بالألوان فلابد من استخدام الفرشاة. لنفرض الآن بأننا نريد أن نرسم خط 
مستقيم من النقطة ٠٠,٠٠١‏ إلى النقطة ٠١٠,۸١‏ على التموذ عة لبد أولا من ريف كائن 
الرسومات ٤٤‏ ٥زطه‏ ك مه۲ ثم نقوم بتعريف القلم (لأننا نريد رسم خط مستقيم)ء ثم نحدد 
وظيفة كائن الرسومات نكتب الأمر بتنفيذ الرسم كالتالي: 
Dim GraphicsFun As Graphics‏ 
Dim PenColor As New Pen (Color.Red)‏ 
GraphicsFun = Me.CreateGraphics‏ 
GraphicsFun.DrawLine (PenColor, 20, 30, 100, 80)‏ 


استخدام الحدث ۴1٣٤‏ التابع للنموذج للرسم 


عند استخدامنا للكود أعلاه في رسم خط مستقيم على النموذج قام البرنامج برسم الخط لكن إذا قمنا 
بتصغير النموذج ثم فتحه مرة ثانية أو فتحنا صندوق حوار فوق الفورم سيختفي الخط المرسوم 
وإلى الأبدء ولحل هذه المشكلة لابد من استخدام الحدث ۴1١٤‏ التابع للنماذج للرسم على النموذج 
هذا الحدث يقوم بالرسم على النموذج (الفورم)ء وإذا تمت تغطية النموذج بصندوق حوار أو تم 
تصغير النموذج ثم فتحه لمرة ثانية نلاحظ وجود هذا الخطء لإن الحدث اه۴ يقوم بالرسم على 
النمو د كل مر ت فا امود اة اخرى ق حال استخداد الكت 1ة الرس فد نف 
على الأشكال المرسومة على النموذج). 


فاد الان لا غل رب بعكو ا لأفكال (خط مسك مطل فكل داري) بادا لخدف 


My Draw Shapes ani, تطبيق جديد‎ َءےشنن-١‎ 


1-نقوم بتكبير النموذج ضعف المساحة المعروضة» ونغير الخاصية ×۲۴ للنموذج إلى 'رسم 
الأشكال" 

۳-ننتقل إلى منطقة الكود وفي أعلى يسار منطقة الكود (من قائمة ١۵۲۵1‏ 66) نختار 
۴٥۲۳1 Eve‰‏ وننتقل لليمين ونختار الحدث ۴۵١٤‏ سيقوم الفيجوال بيسك بفتح الكود 
الخاص بالحدث ۴۵1١٤‏ في منطقة الكود لتقم أنت بكتابة أوامرُك الخاصة بهذا الحدث بين 
Private Sub‏ و End Sub‏ » قم بکتابة هذا الکود: 


نقوم بتعريف كائن الرسومات' 
بعد التعريف نقوم بتحديد مهمة الكائن وهي إنشاء الرسوم ' 

Dim GraphicsFun As Graphics 

GraphicsFun = Me.CreateGraphics 

نستخدم القلم الأحمر لرسم خط مستقيم وكذلك قوس جزء من دائرة' 

Dim PenColor As New Pen(Color.Red) 

GraphicsFun.DrawLine (PenColor, 20, 30, 100, 80) 
GraphicsFun.DrawEllipse(PenColor, 10, 120, 200, 160) 

نستخدم الفرشاة الخضراء لرسم مستطيل ملون' 

Dim BrushColor As New SolidBrush (Color.Green) 
GraphicsFun.FillRectangle (BrushColor, 150, 10, 250, 100) 

نقوم برسم شكل كاردينالي قوسي باللون الأزرق وبأربع نقاط ' 

‘Create a blue cardinal spline curve with four points 

Dim Points() As Point = {New Point(358, 280), _ 

New Point(300, 320), New Point(275, 155), New Point(350, 180)} 
For tension As Single = 0 To 2.5 Step 0.5 


GraphicsFun.DrawCurve(Pens. DodgerBlue, Points, tension) 


Next 


في الكود أعلاه ومن أجل تتفيذ الرسومات في الفيجوال بيسك نقوم بتعريف كائن الرسومات كما في 
السطر الأول من الكود بعدها نحدد طبيعة عمل هذا الكائنء ثم استخدمنا القلم الأحمر لرسم خط 
خطوط وأربع نقاط باستخدام القلم الأزرق. لاحظ شكل النموذج بعد تنفيذ البرنامج: 


LIEK! 


لتعديل الشكل الكاردينالي نتحكم في المتغيرات التابعة له وهي النقاط (وهي زوايا الشكل) وكذلك 
الخطوات (وهي عدد خطوط الشكل) فإذا عدلنا الكود التابع له كالتالي: 
Dim Points() As Point = {New Point(358, 280), _‏ 


New Point(300, 320), New Point(275, 155), New Point(350, 180), 
New Point(312, 175)} 


For tension As Single = 0 To 2.5 Step 0.1 


GraphicsFun.DrawCurve(Pens. DodgerBlue, Points, tension) 


Next 


سيصبح الشكل كا في هذه الصورة: 


ملاحظة: توجد نسخة هذا التطبيق في المرفق رقم ٤٤‏ .. 
إضافة الرسم المتحركة ٣ة‏ "آ٣۸‏ إلى برامجك 


إضافة الأشكال والصور النقطية إلى برامجك تعتبر ميزة جميلة للفيجوال بيسك» ولكن كلما تحركت 
هذه الرسوم كلما كان أفضل» نستطيع تحريك الرسوم على النموذج وكذلك تغيير أحجامها 
ومساحتها أثناء التحريك. 

تحريك الكائنات على النموذج: 

في فيجوال بيسك ٠‏ كنا نستخدم الأمر ۸0۷٥‏ لتحريك الكائنات على النموذج» هذا الأمر غير 
مدعوم في فيجوال بيسك ۲٠٠۸‏ نستطيع تحريك الكائنات على النماذج في نسخة ۲۰۰۸ باستخدام 


الطرق كلكه اع" والخصائص التالية: 


الطريقة لوضف 


Left‏ نستخدم هذه الخاصية لتحريك الكائن أفقيا لليمين أو لليسار. 


Top‏ تستخدم هذه الخاصية لتحريك الكائن عمودیا للأعلى أو للأسفل. 
Location‏ تستخدم هذه الخاصية لتحريك الكائن إلى مكان محدد. 


6ه ۴ | هذه الخاصية تحدد مساحة ومكان جديد للكائن. 


فمثلا نستخدم ٤۴آا‏ لتحريك الكائن كالتالي: 
object.Left = horizontal‏ 
ف اء هزه هو الكائن الذي تريد تحريكه ونستبدل ۸0١20١۵)‏ بالعمود العمودي التي نريد أن 
يكون الكائن عنده (يجب العلم بأن البرنامج يقسم النموذج إلى مجموعة من الخطوط الأفقية 
والعمودية المتناهية في الصغر) التحريك كالتالي: 
PictureBox1.Left = 300‏ 
فسينتقل صندوق الصورة إلى العمود رقم ٠٠١‏ ولكن ماذا إذا أردنا تحريك الكائن بمقدار محدد 
(مثلاً تحريك الكائن إلى بعد خمسين نقطة بغض النظر عن معرفة رقم العمود الأفقي الذي نريد أن 
نصل إليه) عندها نستخدم الأمر التالي: 
PictureBox1.Left = PictureBox1.Left + 50‏ 
بنفس الطريقة يمكننا تحريك الكائن للأعلى وللأسفل كالتالي: 
PictureBox1.Top = 150‏ 
أو تحريكه لمسافة معينة: 
PictureBox1.Top = PictureBox1.Top + 30‏ 


الخاصية ١cat10ما‏ 


لتحريك الكائن أفقيا وعموديا نستطيع استخدام مزيج من الأمرين السابقين 6۴ا و 100 فنقوم 
بتحديد المكان الجديد للصورة بوضع النقاط الجديدة لأعلى يسار الصورة في الكود على النحو 
التالي: 
PictureBox1.Left = 300‏ 
PictureBox1.Top = 200‏ 
فسيقوم البرنامج بتحريكها مباشرة إلى المكان المناسب» لكن في فيجوال بيسك ۲٠٠۸‏ لا يفضل 
استخدام مثل هذه الطريقة خاصة إذا كان لابد من تحريك الكائن مئات أو ألاف المرات على 
النموذج» في مثل هذه الحالة لابد من استخدام الخاصية Location‏ وتحديد النقطة العمودية 
والأفقية للمكان الذي نريد نقل الكائن إليه كالتالي: 
object.Location = New Point(horizontal, vertical)‏ 
ف عع زطه هو الكائن الذي نريد تحريكهء و ۸0١١20۵)‏ النقطة الأفقيةء و )ه٤٣۷6‏ النقطة 
العموديةء مثال: 
PictureBox1.Location = New Point(300, 200)‏ 
ماذا إذا أردنا تحريك الكائن لمسافة معينة بدون تحديد النقاط الجديدة له» نستخدم هذا الكود: 
PictureBox1.Location = New Point(PictureBox1.Location.X - 50, _‏ 


PictureBox1.Location.Y - 40)‏ 
الكود أعلاه يقوم ٠١‏ نقطة لليسار وكذلك ٠١‏ نقطة للأعلى. 
إنشاء الرسوم المتحرکة /٣5‏ ٥٤ھ٣٣۸‏ باستخدام المؤقت ٥1آ‏ 
في حالة استخدام المؤقت لتنظيم عملية تحريك الكائن على النموذج فهذا يعني ميزة جديدة للتعامل 
مع الرسوم» ومع کل وقت محدد سيتحرك الكائن إلى نقطة جديدة (هل تتذكر الفصل السابع الذي 


تعاملنا فيه مع المؤقت (Timer‏ عند استخدام الكائن Timer‏ لتحريك الرسوم یجب تعدیل 
الخاصية Int e٣۷2۵)‏ ا الثانية يساوي ٠٠١‏ وعشر الثانية 


يساوي ٠٠١‏ لإن البرنامج يقسم الثانية إلى ٠٠٠١‏ ه۷٣‏ 6١|ء‏ نستطيع دمج كود تحريك الكائن 


وكود المؤقت مع كود شرطي لتحديد نهاية النموذج باستخدام الخاصية 512٥‏ التابعة للنموذج 
واستخدام الخاصيتين ص۲0 و 1۴ اللتان تحدثنا عنهما سابقاً. بمزج الأكواد المذكورة آنفا نستطيع 
تحريك الكائن وبسرعة مناسبة حتى يصل إلى نهاية الفورم ثم يتوقف الكائن عن الحركة. في 
المثال التالي سنتعلم كيف نقوم بتحريك كائن مربع الصورة الذي يحتوي على أيقونة الشمس 
1.0 التي استخدمناها سابقا باستخدام الخاصية 0٤310١‏ ومؤقت وسنتعلم كيفية استخدام 
الخاصية 10 لتحديد أعلى النموذج والخاصية خو آ5170.1# لتحديد أسفل النموذج: 
١‏ -نقوم بإنشاء تطبيق جديد ڊlسم My Moving |°C01‏ 
٣-نضيف‏ انين من الأزرار إلى أسفل يسار النموذج ونضيف مربع صورة إلى أسفل يمين 
٣-نقوم‏ بتعديل الخاصية ٣٠×‏ للزر الأول إلى 'تحريك للأعلى" وللزر الثاني إلى 'تحريك 
للأسفل'» وللنموذج إلى 'التحريك البسيط للرسوم' ونغير الخاصية |١6۲۷‏ للمؤقت إلى 
١‏ ونضيف الصورة 510١.1٤0‏ إلى مربع الصورة» ونعدل الخاصية ٥‏ أ0 ع517 لمربع 
الصورة إلى 4#ة"|۸٣عاعt۲؟.‏ سيكون النموذج كما في الشكل التالي: 


LES 


نقوم بالضغط نقرتين على الزر 'تحريك للأعلى" ونكتب هذا الكود في منطقة الكود: 


GoingUp = True 


Timer1.Enabled = True 
الكود يفعل الأمر ملاع١ اه ويفعل المؤقت» الأمر صلاعأه6 موجود كاملا في الحدث )ءآ‎ 
التابع للمؤقت» ستلاحظ خط أزرق متعرج تحت الأمر ملا١ ًه لأننا لم نقم بتعريفه بعد. في‎ 
ككهاح ءتاطنا۴ نكتب الكود التالي لتعريف الأمر‎ ۴١۲۳١1 أعلى منطقة الكود وتحت‎ 
:GoingUp 
Dim GoingUp As Boolean 
نقوم بالضغط نقرتين على الزر 'تحريك للأسفل" ونكتب الكود التالي:‎ 
GoingUp = False 
Timer1.Enabled = True 
وكذلك ننقر نقرتين على المؤقت ونكتب الكود التالي:‎ 
If GoingUp = True Then 
تحريك الصورة للأعلى'‎ 
If PictureBox1.Top > 10 Then 
PictureBox1.Location = New Point _ 
(PictureBox1.Location.X - 10, _ 
PictureBox1.Location.Y - 10) 
End If 
Else 
تحريك الصورة للأسفل'‎ 
If PictureBox1.Top < (Me.Size.Height - 75) Then 
PictureBox1.Location = New Point _ 
(PictureBox1.Location.X + 10, _ 


PictureBox1.Location.Y + 10) 


End If 
End If 


الکود اعلاہ یقوم بالتأکد من أن المتغیر ملاوہآمGB‏ مضبوط علی ٥۔٣۲‏ فإذا كان كذلك يقوم 
بتحريك مربع الصورة بمقدار عشر نقاط لليسار والأعلى وذلك كل ٠,۷١‏ ثانية وهو الوقت المحدد 
في خاصية أ6۲۷۵١|‏ للمؤقت» يقوم البرنامج بتحريك مربع الصورة للأعلى ولليسار حتى إذا لم 
يبقى في النموذج إلا أقل من عشر نقاط من الأعلى وعشر نقاط من اليسار يتوقف البرنامج عن 
التحريك. وإذا كان المتغير ملاوہآم6 مضبوط على ٥ا۴۵‏ (ويحدث هذا عند الضغط على الزر 
اتحريك للأسفل") يقوم البرنامج بتحريك الصورة إلى أسفل يمين الصورة بمقدار عشر نقاط لليمين 
وعشر نقاط للأسفل كل ٠,۷١‏ ثانية. وقمنا بطرح الرقم ٠١‏ من إجمالي طول النموذج حيث يقصد 
بالضمیير ٥ل‏ بالنموذج ۴1 لتبقی الصورة ظاهرة ولا تختفي. 
قم بتنفيذ البرنامج لترى كيف يقوم البرنامج بتحريك الصورة» وإذا أردنا التحريك بسرعة أكبر نقوم 
بتعديل الخاصية أ۷2٣6٠|‏ التابعة للمؤقت إلى رقم أصغر. 
ملاحظة: توجد نسخة من التطبيق أعلاه في المرفق ٠٥‏ .. 
تصغير وتكبير كائن ما خلال مرحلة تنفيذ البرنامج 
بالإضافة إلى الخاصيتين ص۲0 و أا لتحريك الكائنات على النموذج توجد الخاصيتين آم١‏ 
و W1‏ لتكبير وتصغير الكائنات على النموذج» لنأخذ مثالا لشرح الفكرة: 
۱-ننشئ تطبیق جدید بالفیجوال بيسك ۲۰۰۸ ونسمیه ۸| My Z00۳‏ 
۲ نضيیف صندوق صورة للنموذج ونضعه في أعلى يسار النموذج» سنضيف صورة إلى 
صندوق الصورة على أساس أن هذه الصورة التقطت في الفضاء ولأن الصورة التقطت في 
الفضاء سنجعل خلفية النموذج ٤)۳0)0۲‏ 8 باللون الأسود» وسنضع صورة النجوم خلفية 
للنموذج Background "2e‏ (عليك أن تفرق بين لون خلفية النموذج BackCo|lor‏ 
وبين صورة كخلفية للنموذج BackColOr ةيصlخll ãيle, «(Background| mage‏ 
التابعة للنموذج سنضبطها على اللون الأسود )ها8 أما خاصية الصورة الخلفية فسنختار 


الصورة المرفقة بالمرفق ٠٤٠١‏ باسم .8٤ص‏ أما الصورة التي ستكون في صندوق 
الصورة فهي صورة للأرض .۸٤4۲ع‏ مرفقة كذلك» ونضبط الخاصية علM0عSiz‏ 
.Stretchlmage Jle‏ 
٣-نقوم‏ بالضغط نقرتين على صندوق الصورة وكتابة الكود التالي في الحدث )ءً)): 
PictureBox1.Height = PictureBox1.Height + 15‏ 
PictureBox1.Width = PictureBox1.Width + 15‏ 


الكود أعلاه يقوم بزيادة ارتفاع وعرض صندوق الصورة بمقدار ٠١‏ نقطة ولأن مساحة الصورة 
بداخل صندوق الصورة تكبر بشكل مطاطي بسبب الخاصية 1M‏ فستكبر الصورة مع 
صندوق الصورة في نفس الوقت بمقدار ٠١‏ نقطةء وكلما استرينا في الضغط على الصورة فإنها 
ستكبر أكثر فأكثر . 

قم الآن بتنفيذ البرنامج وقم بالضغط على صورة الكرة الأرضيةء ماذا تلاحظ. 


بعد ما يقرب من ٠١‏ نقرات |1٤)‏ على الصورة ستكون بهذا الحجم: 


ملاحظة: نسخة من المشروع أعلاه في المرفق رقم ٤٠١‏ .. 


خطوة إضافية للأمام: تعديل شفافية النموذج 

باستخدام دوال ال ا60 تستطيع تحقيق العديد من المهام التي كانت من المستحيلات في النسخ 
الأقدم من فيجوال بيسك (لعل متعصبي فيجوال بيسك ٠‏ ينكرون ذلك)» فيمكننا متلا تعديل شفافية 
النموذج (الفورم) حتى تكون شفافة جدا نستطيع أن نرى من خلالها ما تحتها (مثل هذه الشاشات 
الشفافة نراها مع برامج محاربة الفيروسات» أو برامج التنزيل من الإنترنت أو برامج تعديل 
الخاصية التي تعنى بشفافية النموذج وقيمتها تتراوح بين صفر إلى ٠٠١‏ فصفر تعني شفاف جدا 
(غير مرئي) و ٠٠١‏ تعني غير شفاف» لنأخذ مثالا على ذلك: 


My Transparent F0 ani, ۲۰۰۸ كسıيب تطبيق بالفيجوال‎ ئشنن-١‎ 


- بعد فتح النموذج نضيف اثنين أزرار له» ونعدل الخاصية ٠٠×٤‏ لأحدهما على 'شفافية 
أكثر " والآخر على "استعادة" 
-٣۳‏ نضغط نقرتين على الزر الأول ونكتب الكود: 
Me.Opacity = Me.Opacity - 0.1‏ 
في الكود أعلاه قمنا بتحديد الشفافية للنموذج على أساس الشفافية الموجودة حاليا مطروحا منها 
عشرة بالمائة (لأن الشفافية يُعبر عنها بالنسب المئوية بين ٠‏ و )٠٠١‏ 0.1 نستطيع كتابة شفافية 
معينة للنموذج بأن نكتب الكود 0.75 = ۷†أ٤3م۸۵.0‏ لتكون الشفافية %۷١‏ لكننا كتبنا الكود 
كا ق أغاده كن ل طغظا غل اأز ر رة أخرى تفن الفافة أكثر مقار عثرة بالا 
حتى نصل إلى الضغطة العاشرة والتي يكون فيها النموذج غير مرئي. 
٤‏ ننقر نقرتين على الزر الثاني ونكتب الكود: 
Me.Opacity = 1‏ 


بعد تنفيذ البرنامج وال لضغط أربع مرات على الزر 'شفافية أكثر" نشاهد هذا النموذج الشفاف: 


E > lS E EL — | 


ملاحظة: نسخة من التطبيق في المرفق ٤١‏ .. 
خلاصة الفصل الخامس عشر: 
من اجل أن قم بالتالي 
رسم خطوط أو أشكال__ نستخدم إحدى الطرق الموجودة ضمن مجال الأسماء 
على النموذج System .Drawing. Graphics‏ کمتال الكود التالي یقوم برسم دائرة على 
النموذج: 
Dim GraphicsFun As Graphics‏ 
GraphicsFun = Me.CreateGraphics‏ 
Dim PenColor As New Pen (System. Drawing.Color. Red)‏ 
GraphicsFun.DrawEllipse(PenColor, 10, _‏ 
(160 ,200 ,120 


رسم خطوط أو أشكال | نضع أكواد الرسم في الحدث اه۴ التابع للنموذج 


تخذة ي 5 جر د 1 غير 
ال 
تحريك الكائنات على 


النموذج 


تحريك کائن بشکل 


تكبير أو تصغير كائن 
خلال مرحلة EO‏ غي 
البرنامج 

لنموذج (الفورم) 
كاف عل الو 


تعديل شفافية النموذج 


نقوم بتغيير مكان الكائن على النموذج باستخدام الخاصية 10٤210١‏ 
الخاصة بالكائن من خلال الكود كالتالي: 
PictureBox1.Location = New Point(300, 200)‏ 


نستخدم مؤقت لتحريك الكائن على النموذج» ثم نستخدم الخاصيتين 10۲ و 
ا أو الخاصية 10٤210١‏ لتحريك الكائن ولزيادة سرعة التحريك نتحكم 


بالخاصية |٣۴۲۷)‏ التابعة للمؤقت ۲٥ص11‏ . 


نستطيع ذلك بتعديل الخاصية ام۳ و t۸‏ ل۷ من خلال الكود. 


نستطيع ذلك من خلال الخاصية 2€" ال٣1‏ 0 )هط التابعة للنموذج. 


نستطيع ذلك من خلال الخاصية ا٣0۵‏ التابعة للنموذج» وذلك بتغيير 


ا ن د 


الفصل السادس عشر: الوراثة (وراثة النماذج وتصميم الفئات) 


من أهم الميزات التي تهم المبرمجين والمطورين هي البرمجة كائنية التوجهء هذه الطريقة من 
عبارة عن تسهيل وتطوير للبرمجة بمفهومها التقليدي. فدعم البرمجة الكائنية التوجه بدأ من النسخة 
للفيجوال بيسك لكن كان هناك بعض القصور في هذا الدعم مثل عدم دعم الوراثة» وهي عملية 
ا و ا ر ق ر 
فيجوال بيسك ۲٠٠۲‏ بمعنى أننا نستطيع بناء وتصميم نموذج معين لمرة واحدة ثم نقل مظهره 
وخصائصه إلى نموذج آخر» ونستطيع تصميم فئات معينة ثم وراثة خصائصها وأحداثها إلى فئة 
جديدة» تم تطوير دعم الوراثة في الفيجوال بيسك ۲٠۰٠۰۸‏ بشكل أكبر. 


وراثة نموذج باستخدام الفيجوال بيسك ۲٠٠۰۸‏ 


عند إضافة نموذج (فورم) لتطبيقنا يقوم الفيجوال بيسك ۲٠٠۸‏ بعرضه في نافذة الخصائص بهذا 
الشكل: 


Properties 


Faorml Systern Yin dowss,Faorrns,Forrrn + 


E EEE 


قم بقراءة ما في الصورة أعلاه» كرر ذلك» ماذا ستلاحظء ستلاحظ بأننا نقوم بور اثة شكل 
وخصائص النموذج من "۴0۲5.۴0۲ System. W1 ¬40WS.‏ بجانب هذا یسمح لنا الفیجوال 
منك قل مرد ج معن ك ورا حص اه رة أكرئ اكد مقن عل دا 


.My Form Inherita Ce مulڊ بإنشاء تطبيق جديد‎ موقن-١‎ 


-قم بإضافة اثنين أزرار إلى النموذج وقم بتغيير خاصية ×16 لأحدهما إلى انعم" والآخر 
إلى "لا" وكذلك قم بتغيير خاصية Text‏ للنموذج إلى 'نافذة حوار'. 


٣-قم‏ بالنقر نقرتين على الزر انعم" وقم بكتابه الكود: 
('لقد قمت بالنقر على نعم" )×480ء۸N‏ 


٤-وقم‏ كذلك بالنقر نقرتين على الزر "لا" وإضافة الكود التالي: 


('لقد قمت بالنقر على ا" s480×)‏ 
سنقوم الآن بوراثة هذا النموذج من نموذج آخر كالتالي: 


٥-من Explorer‏ utionاSo‏ نضغط )cاا€-۸۲آR‏ علی اسم المشروع ثم نختار ۸d۹‏ ثم 
t6۳ا New‏ تظھر الشاشة 
التالية: 


Add New ltem - My Form Inheritance 


Laktegories: Templates: 


ll Zommoan Items Yisual Studio installed templates 
Lode 


Data : ا‎ E 
teneral > دص غا‎ 


a 3 Custom Dialog 
Windows Forms Control 


شع ا Wort‏ 


WPF 


MDI Parent Splash Screen LUlser Control Windows Forrn UMET [aly 
Form 


Inherited Llser 
antral 


û new form based on anı existing Windows Form 
Mame: Forma, wb 


Add Lanrcel 


نريد الوراثة منه كالتالي: 


Inheritance Picker 


Specify the component to inherit From: 


Lompoanent Name | Mamespale Location 
Formi1 ™y_Form_Inheritance {Documents and Sekttings1hloon{Local Settings Applin 


* 


Mew component name:Formz 


Browse... 


وبما أن النموذج الذي نريد وراثة خصائصه موجود في نفس المشروع فنختاره من القائمة الظاهرة 
أعلاه وهو "۴0٥۲۳1"‏ أما إذا وراثة نموذج ليس من ضمن ملفات المشروع فيمكننا الضغط على 
الزر 8۲0۷58 ثم البحث عن ذلك النموذج واختياره لوراثته» لكن لابد أن يكون هذا النموذج على 
هيئة )01 وهي صيغة يُمكننا حفظ تطبيقاتنا بها إذا أردنا وراثة الخصائص لاحقا. 


على العموم نختار الآن ۴١۲۳١1‏ ثم نضغط 0۸ء سيقوم الفيجوال بيسك بإضافة نموذج جديد 
للتطبيق وسيكون نفس النموذج السابق الذي قمنا بوراثته» لا يوجد فرق بين النموذجين ولكن هناك 
أيقونات صغيرة (أقفال) على الأزرار تبين لنا بأننا لا نستطيع تغيير هذه الأزرار على النموذج إذا 
لاحظنا نافذة الخصائص سنذرى: 


Properties 


Form2 M¥_Form_Inheritarice,Forrn1 > 

ا 
لا حظ بأن نافذة الخصائص تبين لنا بأن هذا النموذج يقوم بوراثة خصائصه من النموذج 
۴۴1 ويجب العلم بأنه وبالرغم من أننا لا يمكننا التعديل على النموذج الإبن يمكننا إضافة 
مكونات جديدة له (لا يمكن تعديل المكونات السابقة) لكن يمكننا إضافة مكونات جديدة فيمكننا 
إضافة أزرار جديدة ومكونات أخرى جديدة للنموذج» ولنجرب إضافة زر جديد ثم كتابة الكود 
التالي في الحدث )ع التابع للزر الجديد: 


( "هذا هو النموذج الابن") ×80وء× 


نقوم الآن بالتعديل على خصائص المشرو ع بالنقر ۴۸-۳1٤)‏ على المشروع ثم اختيار 

ts‏ erمPدPr‏ ومن النافذۃ التي تظھر نختار ۴۳٥۲۳‏ م 5t٣‏ ومنھا نختار ۴۳٥۲۳١2‏ ثم نقوم 
بتتفيذ البرنامج ليظهر النموذج "الإبن" ولا جرب انقر على الأزرار انعم" و "لا" جرب انقر على 
الزن الثالت: 


ملاحظة: إذا أردنا وراثة نموذج معين في مشروع جديد فلابد أن تكون صيغة النموذج هي ))0 
(أما إذا كانت الوراثة في نفس التطبيق فلا ضير أن نرث النموذج بشكل مباشر بدون تحويله إلى 
صيغة ))0) ولذلك نجرب تصميم نموذج جديد ولتحويله إلى هيئة ))0 من خصائص التطبيق نختار 
Application‏ ومنه نختار ype‏ 0onاatعiاApp‏ ومنه نختار ۲۹۲۷ 15ا ssھاC‏ وبهذه الحالة 
سيقوم الفيجوال بيسك بتحويل النموذج إلى ملف ))0 نجده تحت المجلد ١ں‏ طع۱0٣آط‏ هذا الملف 
تستطيع الاحتفاظ به لوراثته لاحقاً في مشاريعنا الأخرى. 


تصميم فة جديدة كئجا€ 


عند ورائثة نموذج معين فهذا يعني وراثة فئة معية لان كل نموذج هو عبارة عن فئةء عندما قمنا 
بالورافة في المتال السابق ققحا دافذة الكرد للنمرذ ج الثاني يظهر كا هذا الكرة: 


* 
| 


Faorm2.¥b Forma, vb [Design] 2 
g# Button3 ب‎ Û Click “| 
EHFublic Class Formz اچ‎ 


Private Sub Button3 ClicklByY¥al sender As System.thject, By¥al e As Bystem. Even 
"هذا مو التموذج الاين" ×0 8ود‎ 
End Sub 
End Class 


2 اگ 


فأول سطر في الكود يوضح لنا بأن النموذج الثاني ۴0١۲۳2‏ هو عبارة عن فئة كئها» عندما 
يقوم الفيجوال بيسك بوراثة نموذج معين هو يقوم بوراثة الفئة كئه)) حيث يقوم بالربط بين الفئة 


۴۴1 والفئة ۴0۲۳١2‏ هذا كل ما في الأمرء هذا يعني لنا بأننا نستطيع تصميم فئات جديدة 
ووراثة هذه الفئات» لاحظ الكود التابع للزر الثالث في الصورة أعلاهء فالزر الثالت لا يرث 
خصائصه من الفئة »۴٥۲١١1‏ لفهم طبيعة العلاقة من جديد» فالنموذج الثاني يرث خصائصه من 
النموذج الأول والنموذج الأول يرث خصائصه من lلفiة System. Windows. FOF "5s.F0OF‏ 
والفنة ۴0۲75 System. WİÎNd0WS.‏ ترث خصائصهھا من إطارات عمل الدوت نت ئځDotNe‏ 
ork‏ eWص۴ra.‏ (المشروع بالمرفق رقم .)۰٤۸‏ 


ملاحظة: بالإضافة إلى الوراثة بواسطة اختيار خصائص المشروع ثم ۳٥ا ١۴W‏ يمكننا وراثة 
فئة معينة بواسطة الكود» باستخدام الأمر كاآ٣ |٣٣8‏ ويجب أن نضع الأمر في أعلى منطقة الكود 
في أول سطر من الكود»ء استخدام الكود في الوراثة سيسهل لنا العديد من المهام» قبل نهاية الكتاب 


سنجد أمثلة تستخدم هذه الطريقة. 


الآن قد تتساءل كيف نقوم بتصميم الفئات» وكيف نقوم بتطوير الفئات ثم بوراثتها وكيف نقوم 
بوراثة فئة من فئة أخرى ثم تطويرها ووراثتها مرة أخرى» في هذا الفصل سنعمل سويا على 
تصميم فة ككئهاح. 


مااحخظة وصرع الررافة وكذلك البرمجة كاقية التىجه مرشرع ليس مهم وقد رمد كن 
ال وتن واو اال د فل عه رر ي رن بك 8 ارو ن 
علينا عملية كتابة الأكواد فنقوم بكتابتها مرة واحدة ثم وراثتهاء فالبرمجة كائنية التوجه تفيدنا في 
معزفة الكثير من الميزات التي يتميز بها الفيجوال بيسك ۲٠١۸‏ مثل 1|۸ وغيرها من الثقنيات 
الجديدة. 


إضافة فئة ككها٣‏ جديدة إلى مشروعك 


الفئة 155) هي عبارة عن وعاء حاضن لكائن برمجي أو أكثر» يقوم محرر الكود بتلوينها باللون 
الأزرق» فيجوال بيسك بعد تعريف الفئة وإضافة الكائن البرمجي إليها سيتضمن هذا الكائن 
خصائص و أحداث وطرق كك١٥‏ ۸ا6 مثل الكائنات التي نضيفها للنموذج» لإضافة فئة جديدة 
لبرنامجنا من مستکشف المشروع نختار ۸4۹d‏ تم ۴۳٤ا ۸۴W‏ ثم نختار sکھاے‏ ثم نقوم بتعریف 
الفئة باستخدام الكودء سنأخذ الآن مثال تطبيقي لإنشاء وتعريف فئة تحت اسم ۴۵۲50۸ تقوم هذه 


الفئة بأخذ الاسم الأول والأخير مع تاريخ الميلاد للشخص» وتقوم بحفظ البيانات في خصائص 
الفئةء سوف نقوم بإضافة طرق 46 لحساب عمر الشخص بمجرد معرفة تاريخ ميلادهء 
تق عبر هذا التطق ك تضم فف الكافة و كاك كف تكن ر فة من الإخراءات 
المنبتقة من الفئات في مرحلة الكود. 


مثال الفئة P٥٣۹0۸۳۸‏ 
۱- ننشئ مشرو ع جدıد‏ ڊulۃ My Person Class‏ 


۲- نقوم بإضافة ليبل تم اثنين صناديق نص تم أداة الوقت والتاريخ Date and Time‏ 


Button زر‎ pû Picker 


۳- نقوم بتعديل الخصائص ليظهر النموذج والأدوات كما في الشكل التالي: 
8 الغئة Persan‏ 


قم بإضافة الأسم الأول والأّخير وتاريخ الميلاد 


الاسم الأونا 


الأسم الأخير 
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عرض السجل 


الفصل التثامن عشر عن الربط مع قواعد البيانات. 
٤-نقوم‏ بإضافة فئة ككهاع للمشروع» نختار ۸4١‏ تم ۴۳| "۴W‏ ثم نختار من النافذة التي 
تظھر الفئة sئھاC‏ ونسمیها ۴٥٣0۸.۷5‏ ثم نضغط إل۸. 


Add New Item - My Person Class 


Lategories: Templates: 


ll Lommon Items Yisual Studio installed templates 
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سيقوم الفيجوال بيسك بإضافة الفئة إلى ملفات المشروع ثم سيقوم بفتح صفحة الكود الخاصة بالفئةء 
وسنقوم الآن بكتابة الأكواد الخاصة بالفئة ۴۵۲500 بحسب الترتيب التالي: تعريف متغيرات الفئة 
ثم كتابة الخصائص تم الطرق كل٥۸6†1‏ ثم إنشاء الكائنات التي تعتمد على هذه الفئة. 
دعونا لنبدأً بكتابة كود الفئة خطوة بخطوة: 
١-تعريف‏ متغيرات الفئة 
لابد ان نقوم بکتابة جمیع الأکواد بین ۴٥٣۹0۸‏ sکھا€‏ icااں۴‏ و ssھاC ٤٣d‏ ولتعریف 


المتغيرات لابد أن نقوم بتعريفهم بعد ۴۴۲50١‏ ككها) »أاطلا۴ مباشرةء فنكتب بعدها في 
السطر الثاني مباشرة التعريفات: 
Private Name1 As String‏ 
Private Name2 As String‏ 
فا بترت كران على و و١511‏ لوص )ا قتا بتر وت المتيرين بالكلية 
٥اا‏ لكي نستخدمهم بداخل الفئة ۴۴۲500١‏ فقط وغير قابلين للاستعمال على طول المشروع 
وعرضه» وهذه التقنية يقوم بها معظم مبرمجي الفيجوال بيسك حيث يقومون بتعريف المتغيرات 


بداخل الفئات على أنها متغيرات خاصة وليست عامةء ولنأخذ مثال على الفثة ۴0۲۳ التي قام 
مبرمجي مايكروسوفت بتعريف متغيراتها بنفس الطريقة ضمن إطارات الدوت نت. 
۲- إنشاء الخصائص: 
بعد تعريف المتغيرات لابد من إنشاء الخصائص» نكتب هذا الكود بعد تعريف المتغيرات: 
Public Property FirstName() As String‏ 
بمجرد أن نضغط E١6١‏ بعد كتابة الجملة أعلاه يقوم الفيجوال بيسك بكتابة كود تلقائي من 
أجل تعبئته» فنحن قمنا بكتابة خاصية فقام الفيجوال بيسك بكتابة بقية كود الخاصية الذي 
لابد علينا من تعبئته لنقوم بتعريف الخاصية بشكل صحيح» بقية الكود يحتوي على بند 
€ والتي تعني ماذا سوف يرى المبرمج عند استخدام الخاصية N۳٥‏ ك٣۴»‏ وكذلك 
نهاية كود الخاصية توجد الجملة 6م١٠۴۲ E٣١‏ والتي توضح انتهاء كود الخاصية. 
۳- نقوم الآن بتعبئة بقية الكود التابع للخاصية ٥1۳ء٣۴1‏ كالتالي: 
Public Property FirstName() As String‏ 
Get‏ 
Return Name1‏ 
End Get‏ 
Set(ByVal value As String)‏ 
Name1 = value‏ 
End Set‏ 
End Property‏ 
مع ملاحظة بأننا نقوم بكتابة الكود المظلل بالأصفر فقط. وكما وضحنا من قبل ف 6۴ تعني ماذا 
سوف يشاهد المبرمج عند اختياره للخاصيةء و 56 تعني ماذا يحدث عند تغيير الخاصيةء وبنفس 
الطريقة نقوم بكتابة خاصية ثانية "اكه ا كالتالي بعد Enter طbiض›i End Property‏ 
لنكتب الخاصية الجديدة كالتالي: (نفس الخاصية السابقة عدا التغييرات المظللة بالأصفر) 


Get 


End Get 
Set(ByVal value As String) 
Name2 = value 
End Set 
End Property 
أكملنا الآن تعريف المتغيرات ثم كتابة الخصائص» ننتقل الآن إلى الطرق كله ع. سنقوم‎ 
بإنشاء الطريقة 6 والتي تحسب لنا عمر الموظف بمجرد إدخال تاريخ ميلاده.‎ 


Methods Jرضطلl إنشاء‎ -٤ 
كالتالي:‎ ۸2٥ كه | نكتب تعريف الدالة‎ 1۳٥ تحت الخاصية‎ 
Public Function Age(ByVal Birthday As Date) As Integer 
Return Int(Now.Subtract(Birthday).Days / 365.25) 


End Function 


لإنشاء طريقة ١0۵٣ع"‏ في الفئة ھا٣‏ لهدف مُحدد» لابد من تعریف دالة ۴u c0۸‏ 
أو إجراء مصغر ۲٥١‏ uل‏ ع١۴۲‏ طن؟ بداخل الفئة. ومعظم الطرق لا تحتاج إلى معاملات 
حتى تعمل» لكن الطريقة ۸٥‏ التي عرفناها تحتاج ل ۷ه ل81۲۸ (وتعني تاريخ الميلاد 
الذي قمنا بتعريفه على أنه تاريخ) كمعامل وقمنا بتعريفه لنسند إليه تاريخ ميلاد الموظف 
ولتقوم الدالة بحساب عدد الأيام من تاريخ الميلاد إلى اليوم ثم قسمة المجموع على 
٠‏ (لإن عدد أيام السنة يساوي ٠٠١‏ والسنوات الكبيسة (رابع سنة) تساوي ٠٠١‏ 
لذلك قام المؤلف بالقسمة على ٠٠٠,٠٠١‏ واستخدم |١‏ لتقريب الكسر لأقرب رقم). لاحظ 
الدالة بين القوسين yھ‏ ل۸٤۲ (Now .Subtrac†)81‏ حیث یقوم البرنامج بطرح تاریخ 


الميلاد من التاريخ الحالي تم تتم القسمة فيما يعد على ٠٠٠,٠١‏ ثم بعدها تتم عملية 
التقريب. لمعرفة أكثر عن الدوال راجع الفصل العاشر من هذا الكتاب. 


ملاحظة: التقويم الميلادي الذي يؤرخ لميلاد نبي الله عيسى عليه السلام يحتوي على سنوات 
كبيسة وغير كبيسة فالسنوات الكبيسة تحتوي على ٠٠١‏ يوم وبقية السنوات تحتوي على ٠٠١‏ 
يوم» ويبدأً التاريخ بثلاث سنوات غير كبيسة ثم سنة رابعة كبيسة» وللعلم تمت إضافة اليوم ال 
١‏ وکا بس قفا قالياي فى دورن الأركن خرل الس وة اة 
اليوم ٠٠١‏ كل رابع سنة لتتساوى السنة مع دورة الأرض حول الشمس» حيث تدور الأرض 
حول الشمس كل ٠٠١‏ يوم وربع اليوم. ولمعرفة إذا كانت السنة كبيسة أو غير كبيسة نقسم رقم 
السنة على الرقم ٤‏ فإذا كان الناتج عدد صحيح بدون باقي كانت السنة كبيسة وإذا كان هناك 
باقي فالسنة غير كبيسة (خرجنا عن موضوع الكتاب). لاحظ شاشة بيئة التطوير بعد كتابة الفئة 
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FF My Person Clasa - Microsoft Visual Studio 
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الآن نذهب إلى النموذج ۴0۲۳1 لاستخدام الفئة الجديدة في تطبيقنا. 


ننقر نقرتين على الزر )0١1‏ »ا8 ونكتب الكود التالي في الحدث ٤1ا‏ التابع للزر: 
Dim Employee As New Person‏ 
Dim DOB As Date‏ 
Employee.FirstName = TextBox1.Text‏ 
Employee.LastName = TextBox2. Text‏ 
DOB = DateTimePicker1.Value.Date‏ 
MsgBox(Employee.FirstName & " " & Employee.LastName _‏ 


& " عمرە‎ " & Employee. Age (DOB) & "iu ") 


نتذكر الآن ما قمنا به عند كتابة الفئة ۴۵۲50۳ ثم نطبق ما كتبناه بها على الكود أعلاهء قمنا 
بإسناد النص في مربع النص ٠۴×650×1‏ إلى المتغير ۴٣51۳٥‏ تم قمنا بإسناد اللص في 
مربع النص الثاني 1۴×650×2 إلى المتغير 14۳٥‏ اءهاء ثم قمنا بسحب التاريخ في 
Pate imePickerٍ1‏ إلى المتغير 008 » بعدها قمنا بكتابة كود لإظهار صندوق حوار 
يحتوي على الاسم الأول والأخير ثم العمر بالاعتماد على الفئة ۴٥۲50١‏ وبالأخص على الدالة 
٥ك‏ الموجودة في الفئة المذكورة» حيث قمنا بإضافة التاريخ الذي قام باختياره المستخدم إلى 
المتغير 008 ثم وضعناه بدل المتغير 81۲۸03¥ الموجود في الدالة ۸6 الموجودة في الفئة 
7 ليس في الأمر تعقيدا قم بقراءة الكود مرة ثانية إذا أحسست ببعض الصعوبة. 


نقوم الآن بتنفيذ البرنامج ثم نكتب اسم في الاسم الأول وفي الاسم الأخيرء ثم نحدد عمر تاريخ 
معين» ونضغط على الزر "عرض السجل'. نلاحظ قيام البرنامج بكتابة الاسم الأول والأخير في 
صندوق الحوار الذي سيظهر وحساب العمر بالاعتماد على التاريخ الذي اخترناه» انظر 
الصورة» ملاحظة نسخة من المشروع موجودة في المرفق رقم ٤۹‏ .. 


قم بإضافة الأسم الأول والأخير وتايح الصيلاد 
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My Person Class XK 


تخد حجصدونا عجره ۹ا سنة 


خطوة إضافية للأمام: وراثة فئة İوılة Inheriting a Base Class‏ 


ما نستفيد من الوراثة هو أننا لا نقوم بكتابة الكود أكثر من مرة» حيث أننا نقوم بكتابة الكود 
مرة واحدة ثم نستفيد من الكود في كل مرة قد نحتاج له» وهذا هو المميز في البرمجة حيث أننا 
لا نقوم بكتابة الأكواد بشكل ممل» عند وراثة فئة أولية أو فئة قد تم تصميمها من قبل نستطيع 
إجراء بعض التعديلات لتتلاءم مع احتياجاتناء لنأخذ مثال عن الفئة ۴٥۲50١‏ التي قمنا 
بتصميمها سابقا وكيف سنقوم من بالاستفادة منها في فئة جديدة تتعلق بالمعلمين كما في المثال 
التالي: 


١-نقوم‏ بفتح الفئة ۴۵۲50۸ التي قمنا بتصميمها سابقا ونذهب إلى نهاية الکود بعد ٤۸۵‏ 
5 لنضيف فئة جديدةء حيث بإمكاننا إضافة فئة جديدة بداخل نفس الملف أهم شيء أن 
تبدأً وتنتهي کل فئة بالاکو اد sیھاC‏ icااں۴‏ و کیھا€ ۴۸۹۵ء حیث نکتب بعد ٤۸d‏ 
5ئ الكود التالي للفئة الجديدة التي سنسميها ۴۲٣2ءا‏ : 


Get 


End Get 
Set(ByVal value As Short) 


End Set 
End Property 
End Class 

مع العلم بأننا سنقوم بطباعة الكود المظلل باللون الأصفر فقطء لاحظ بأننا قمنا بوراثة الفئة 
السابقة ۴٠٣50١‏ منذ السطر الأول من الكودء ماذا يعني ذلك: يعني بأن الفئة الجديدة ترث 
المتغيرات والخصائص والطرق كل ٥ع"‏ من الفئة السابقة ۴٥۲50١‏ وإذا كانت الفئة السابقة 
Pers‏ توجد في وحدة برمجية أخرى ماا 0d‏ او في مشروع آخر فسیجب علینا تحدید 
مكانها باستخدام مجال الأسماء "8٥53٤8‏ وباستخدام العبارة ئ٣0‏ م "| التي نقوم 
بكتابتها في أول منطقة الكود» هل تتذكر متى قمت بكتابتها آخر مرة» في تلك المرة كنت تقوم 
بعملية وراتة لفئة من فئات الدوت نت» الآن الفئة ۴۵٤۸6"‏ تحتوي على نفس الخصائص 
الموجودة في الفئة ۴٥۲50١‏ وهما ۴¡rst N2 "٥۴‏ و LastName‏ بالإضافة إلى الخاصية 
الجديدة التي أضفناها في الفئة ٠۵۸8۲‏ وهي الخاصية 6۲0٥‏ والتي تسجل الفصل الذي 
يقوم المدرس بالتدريس فيه» الآن لنذهب إلى النموذج ۴0١۲۳1‏ ونستعرض الكود الخاص بالزر 
8B tt1‏ ونقوم بتعدیل الکود کالتالي: 


Dim Employee As New Teacher 
Dim DOB As Date 
Employee.FirstName = TextBox1.Text 


Employee.LastName = TextBox2. Text 


DOB = DateTimePicker1.Value. Date 


MsgBox(Employee.FirstName & " " & Employee.LastName _ 


ملاحظة أننا قمنا بتغيير ما هو مظلل باللون الأصفر فقط, قمنا بتغيير الفئة من ۴۴۲50۸ إلى 
reacher‏ حيث أنها نفس الفئة (لأن ١٥۸ع‏ ه٥۲‏ ترت من )۴٥۴۲50۸‏ مع إضافة الخاصية 
6 لها فقط. وتم استبعاد عملية حساب العمر لأننا لا نحتاج لها من هذا نستفيد بأننا إذا لم 
نحتاج لخاصية معينة ضمن الفئة فليس بالضرورة أن نستخدمها وإنما نستخدم ما نحتاج فقط من 
الخصائص من الفئة التي نقوم بالاستفادة منها. 


نقوم الآن بتنفيذ الكود وبعد تعبئة الاسم الأول والأخير والضغط على الزر "عرض السجل"' 
یظهر صندوق الإدخال: 


My Person Class 


#في ات فصل تقوم بالندريس 


| ا1ا 


نقوم بكتابة رقم وليكن الرقم ٣‏ في صندوق الإدخال ثم نضغط 0۸. سنشاهد الشاشة: 


My Person Class | 


محمد حمودی یخرس قي الفصل " 


ملاحظة: عند صندوق الإدخال نقوم بكتابة أرقام وليس حروف لأننا عرفنا الخاصية ٥إ6۲2‏ 
على أساس أنها من النوع 5۸0۲٤‏ (والذي يبدأ من -32.768 إلى 32.767). نسخة من 
المثال السابق في المرفق رقم ..٠١‏ 


إذا أعجبك هذا الفصل المتضمن معلومات عن الوراثة والبرمجة كائنية التوجه»ء أستطيع أن 
أقول لك بأن لغة الفيجوال بيسك ۲٠٠۸‏ هي لغة كائنية التوجه بحق» تستطيع إضافة أحداث 
للفئات وكذلك تستطيع إضافة قيم أولية للخصائص كاالاه؟ 06ء وتستطيع استخدام 

anonymous types‏ و ngاoadiاverه.‏ هذه الميزات وغيرها التابعة للبرمجة كائنية 


ملحصص . 


التوجه تستطيع معرفتها بقراءة التعليمات المرفقة مع برنامج الفيجوال بيسك» أو بقراءة كتاب 


خلاصة الفصل السادس عشر 


من اجل أن 


وراثة نموذج موجود 


تعديل النموذج الابن 


إضافة فثات خاصة باك 
إلى المشروع 


لخا الراك 
ال فة ت اكل اة 


قم بالتالي 

من القوائp‏ iختlر Inherited رlتëخi pî Add New Item oi Project‏ 
۴ ثم نحدد اسم للنموذج الجديد تم نختار 0٩۸4ء‏ من النافذة التي تظهر 
نختار النموذج (الفورم) الذي نريد وراثته ثم نختار )0ء مع ملاحظة أننا إذا 
أردنا وراثة نموذج (فورم) ليس ضمن ملفات مشروعنا فلابد أن يكون بصيغة 


.dll 


نستطيع تعديل النموذج الابن (الذي قمنا بوراثته من نموذج سابق) وذلك 
بتكبيره وتصغيره أو بإضافة مكونات جديدةء وتعديل خصائص المكونات» 


فقط لا نستطيع تعديل المكونات الموجودة فيه من قبل. 


من القوائم نختار ٤t‏ ٥زہ٣۴P‏ ثم Add New |†tem‏ ثم نختار کsکھاC‏ ونقوم 
بتحديد اسم للفئة ثم نختار ل40 بعدها نقوم بكتابة كود للفئة المضافة. 


لإخفاء المتغيرات التي قمنا بتعريفها بداخل الفئة (حتى لا يقوم المبرمجين 
بالاستفادة من المتغيرات بدون استخدام الفثة) نستخدم كلمة التعريف 


Pra‏ بداخل الفئة كالتالي: 


إنشاء خاصية جديدة 


بداخل الفئة 


إنشاء طريقة Net hod‏ 
جديدة بداخل الفئة 


Private Name1 As String 
نقوم بتعريف خاصية عامة بداخل الفئة كالتالي:‎ 

Public Property FirstName () As String 
Get 
Return Name1 
End Get 
Set(ByVal value As String) 
Name1 = value 
End Set 
End Property 

نقوم بتعريف دالة أو إجراء مصغر بداخل الفئة كالتالي: 


Public Function Age (ByVal Birthday As Date) As 
Integer 


Return Int(Now.Subtract(Birthday).Days / 365.25)‏ 
End Function‏ 
نستخدم كلمة التعريف "01 تم الكلمة "۴W‏ ثم نذكر اسم الفئة التي نريد 
الاستفادة منها كالتالي: 
Dim Employee As New Person‏ 
نستخدم الطريقة العامة لتعيين الخصائص كالتالي: 


Employee.FirstName = TextBox1.Text 


وراثة فئة فى فئة 


أخرى» (وراثة الفئة 


الأب في الفئة الإبن) 


نقوم بإنشاء فئة جديدة ونستخدم الكلمة كئخًآ٣‏ 6" | لوراثة الفئة الأب كالتالي: 


Public Class Teacher 
Inherits Person 

Private Level As Short 
Public Property Grade() As Short 
Get 

Return Level 

End Get 

Set(ByVal value As Short) 
Level = value 

End Set 

End Property 

End Class 


الفصل السابع عشر: التعامل مع الطابعات 


يوجد في فیجوال بيسك ۲۰۰۸ فئة تسمى ۴۲٣00٤16۸‏ تستخدم لعملية الطباعةء 
ونستطيع طباعة نصوص أو رسومات أو غيره باستخدام الفيجوال بيسك ۲۰۰۸. دعونا نتعرف 
أکتر على llأة .PrintDocUMment‏ 


استخدام الفأ PrintDocument‏ 


معظم البرامج تحت نظام الويندوز تسمح لنا بطباعة المستندات والملفات التي نتعامل معهاء وتم 


فباستخدام الفئة ٣٣00٤18۸٤‏ يمكننا الطباعة بشكل أمثل» حيث يمكننا استخدام الفئة 
Print Document‏ بطریقتین وھما: 
٠‏ إضافة المكون خ٣ P٣1” 0 ٤1u"‏ إلى النموذج (الفورم). 
٠‏ تعريف الفئة 0٤1€‏ )”ا بواسطة الكود في مرحلة الكود. 
توجد llفأة System .Drawing. Printing ءlnÎl Jlجم jمض PrintDOCUM@Nt‏ والذي 
يحتوي على العديد من الميزات الهامة لطباعة النصوص والرسومات من ضمنها الكائن 
PrinterSettin4‏ والذي يقوم بتغيير إعدادات الطابعةء وكذلك الكائن كو١آً†#؟5عوه۴‏ ويحتوي 
على إعدادات الصفحات ويمكن تغييرها منه» والكائن كو۲ ٤۷٥۸۲۸‏ عوه۴ا”اا۴ الذي يحتوي علة 
معلومات عن الصفحة التي نقوم بطباعتهاء ويضاف مجال الأسماء 
System .Drawing.Printing‏ بشكل مباشر لتطبيقك وإذا لم يضاف أو ردنا إضافته بشكل 
مباشر حتى يتسنى لنا التعامل مع مكوناته بسهولة نضيف الكود التالي إلى أول الكود: 
Imports System. Drawing.Printing‏ 
لنأخذ الآن مثال على استخدام المکون ۴٣1٣۲00٤18۸٤‏ لطباعة ملف رسومات من النظام: 
١‏ -نقوم بإنشاء مشرو ع جدıد‏ ڊwlم My Print GraphiCs‏ 


-نقوم بإضافة ليبل وصندوق نص وكذلك زر بالإضافة للمكون †^ €" Pri¬†0(0°CU‏ 


٣‏ نقوم ببعض التعديلات على المكونات وعلى النموذج حتى تصبح المكونات كما في الصورة 
التالية: 


قم بكتابة عنوانا الصورة التي تريذ طباعتها 


sUNn.,ica 


٤-الآن‏ سنقوم بإضافة بعض الكود الذي يسمح لنا بطباعة الصورة بمختلف أنواعها ( على 
ھیئة , bitmap, icon, meta ¡l€‏ PE6Gل)»‏ فقط نقوم بالنقر مرتین )٤C)1-e)اD0ub‏ 
على الزر 'طباعة الصورة"٠‏ ليقوم الفيجوال بيسك بتحويلنا مباشرة إلى منطقة الكود وإلى 
الحدث )ءا التابع للزر 'طباعة الصورة"» لكننا سنذهب إلى الأعلى في منطقة الكود إلى 
أعلى منطقة الكود لكتابة كود استيراد مجJl system.Drawing. Printing «lal‏ 
حيث نكتب التالي في أعلى منطقة الكود: 
Imports System. Drawing.Printing‏ 
الكود أعلاه يسهل لنا عملية استدعاء فئات الطباعة ضمن الكود. 
٥-نعود‏ الآن إلى الحدث )٤1ا‏ التابع للزر 'طباعة الصورة" ونكتب الكود التالي: 
الطباعة مع صيد الأخطاء إن وُجدت ' 
Try‏ 


AddHandler PrintDocument1.PrintPage, AddressOf 
Me.PrintGraphic 


لطباعة الصور ' PrintDocument1.P۲¡†))‏ 


Catch ex As Exception 'İطخ‎ كlنa مراقبة فيما إذا كان‎ 
MessageBox.Show("l Îطخ‎ كlia‎ —— Î ge", ex. ToString()) 


End Try 
تجاهله لأننا‎ Ne. ¡”t6 بعد كتابة الكود ستلاحظ خط أزرق متعرج تحت الكلمة م2‎ 
والتي تقوم باختيار الحدث‎ ۸01٣0) سنقوم بتعريفه في الخطوة التاليةء استخدمنا الجملة‎ 
لیس‎ d1 ٣d المناسب لتستدعيه لحظة تشغيل الحدث ٥ه ۴ ٤۸٣۴ء مع ملاحظة أن 6۲ا‎ 
له علاقة بمراقبة الأخطاء وإنما يقوم بمتابعة أحداث الكائن» بعدها قمنا بإضافة كود صيد‎ 
بنفس الطريقة التي استخدمناها في الفصل التاسع من هذا‎ ٥2٤۸ الأخطاء باستخدام الكلمة‎ 
أن يجمع لنا معلومات مفصلة عن الخطأ إن وأجد.‎ E× الكتاب مع فارق بسيط يسمح للمتغير‎ 
نخرج الآن من حدث )٤ا ونكتب الكود التالي فوقه مباشرة:‎ 
Private Sub PrintGraphic(ByVal sender As Object, _ 
ByVal ev As PrintPageEventArgs) 
نقوم بإنشاء الرسم باستخدام'‎ ral 
ev.Graphics.Drawlmage (Image.FromFile(TextBox1. Text), _ 
ev.Graphics.VisibleClipBounds) 
' قم بالتأكيد أن هذه آخر صفحة تقوم بطباعتها‎ 
ev.HasMorePages = False 


End Sub 


هذا الإجراء يتبع المكون ۸1ع" (0٤u‏ اا۴ وتقوم الطريقة ئ^¡PrintDocument1.PF‏ 
بإنشائه« قمنا هنا بإلحاق lلnتغıر‏ €۷ ب— Print PageEventArgs‏ لأنه يتبع 


Print Graph‏ ويحتوي هذا المتغير على معلومات عن الصفحة التي نريد طباعتهاء طبعا 
كل هذه المتغيرات والإجراءات تتبع مجJl‏ Jlأln«ء .System.Drawing.Printing‏ 


استخدمنا في الكود السابق الطريقة ية" 0۲,W|‏ .5٤م‏ ه6۲ لطباعة الصورة التي نأخذها 
من ملف وصلة الملف موجودة بداخل صندوق النص» تذكر بأننا كتبنا في صندوق النص 
0.0 وعلية يجب أن تكون الصورة 51.1٤0‏ مع البرنامج في نفس الملف (أي في ملف 
(ine‏ ليتم طباعتها وإذا كانت في ملف آخر فيجب تحديد مسار الصورة الجديد ليتم 
طباعتها وإلا سيظهر لنا خطأ. في نهاية الكود قمنا بضبط كعوجة45M0۲6۴‏ ۵۷.۳ على 
٥ا۴‏ لتحديد أنه لا توجد صفحات إضافية لطباعتها. 


قم بتتفيذ البرنامج الآن ثم قم بتحديد مكان الصورة وقم بطباعتهاء ملاحظة: توجد نسخة من 
المشروع في المرفق رقم ..١١‏ 


بعد تنفيذ المشروع تظهر هذه النافدة: 


قم بكتابة عنوان الصورة التي تيد طباعتها 


sUn,iCO 


نقوم بتحديد مكان الصورة الصحيح» ولأن الصورة 51.1٤0‏ مرفقة في ملف ٤ٍِںط‏ ع0 bi۸۱‏ 
نعتمد المسار (أما إذا كانت الصورة التي تريد طباعتها موجودة في ملف آخر فنقوم باختيار 
مسار الصورة الجديدة ووضعه في مربع النص) ثم نضغط الزر 'طباعة الصورة" (مع ملاحظة 


بأن الطريقة "|0۲۷ تقوم بتكبير الصورة التي نقوم بطباعتها حتى تكون ملئ 
الصفحة)ء ستظهر نافذة الطباعة كالتالي: 


Page 1 of document 


Lancel 


تستطيع طباعة أكثر من صورة بتحديد مسار كل صورة ثم طباعتها. 

طباعة النص من مربع النص 

تعلمنا في المثال السابق كيفية طباعة صورة من جهازك على الطابعة الرئيسية للجهاز» سنتعلم 
الآن كيف نقوم بطباعة نص على الطابعة الرئيسية للجهاز باستخدام نفس الفئة 

Print 0cument‏ لكننا لن نقوم بإضافة مكون الطباعة من نافذة الأدوات سنقوم بتعريف 
الفئة Print Documen†‏ بواسطة الکود« وسنستخدم الطريقة Graphics. DraWString‏ 
لطباعة النص من صندوق النص» مع ملاحظة بأننا في هذا المثال سنتعلم كيف نطبع صفحة 
واحدة من النصوص أو أقل أما إذا أردنا طباعة أكثر فيجب علينا كتابة أكواد أكثر وهذا ما 
سنتعلمه لاحقأء لكن دعونا نتعلم عملية الطباعة خطوة خطوة. 


My Print 1‌ext ننشئ مشروع جديد باسم‎ -١ 


1 نضيف ليبل وصندوق نص وزر للنموذج ونقوم بالتعديلات اللازمة ليصبح النموذج كما ف 
الصورة التالية: 


5 ا طباعة النص 


قم بكتابة نص بذاخل صندوق النص ثم اضخط على الزر "طباعة النص" 


٣-مرحلة‏ الكود ننقر نقرتين -٣)1٤۸‏ اطلام على الزر طباعة النص ونذهب إلى أعلى 
الكود لنقوم باستيراد مجال الأسماء كالتالي: 
Imports System. Drawing.Printing‏ 

كما وضحا ساب بان الكرة أعاك سيل علا عملية الست عاء قات وطرق الطاعة فى اة 
الكود» نذهب الآن إلى الحدث (1٤)‏ التابع للزر 'طباعة النص" ونكتب الكود: 

الطباعة مع صيد الأخطاء ' 

Try 
' نعرف المتغير‎ ۴۲۸00٥ على أنه من النوعية‎ Print Document 


Dim PrintDoc As New PrintDocument 
AddHandler PrintDoc.PrintPage, AddressOf Me.PrintText 


لطباعة النص' PrintDoc.Print()‏ 


Catch ex As Exception 'ءslطخÎلl‎ دıصږص‎ 


و"عفوأً--حدث خطأً عند عملية الطباعة"(e80X.5h0W$NMessag‏ 
ex.ToString())‏ 


End Try 


مع ملاحظة تشابه هذا الكود مع كود طباعة الصور والفرق ما هو مظلل بالأصفر فقطء الآن 
بدلا من إضافة المكون ۴٣١٣00186٣٤‏ سنقوم بإضافته بشكل برمجي بواسطة الكودء 
نقوم الآن بكتابة إجراء الطباعة أعلى كود الحدث )ءا كالتالي: 


اا اه 
Private Sub PrintText(ByVal sender As Object, _‏ 
ByVal ev As PrintPageEventArgs)‏ 


للتعبير عن النصوص بشكل رسومي 0۲W5۲١ ١3‏ نستخدم الطريقة' 


نقوم بتحديد أن هذه الصفحة الأخير التي نطبعها ' 
ev.HasMorePages = False‏ 
End Sub‏ 
نلاحظ تشابه الكود مع كود طباعة الصور مع الفرق الملون باللون الأصفرء في طباعة 
النلصوص نستخدم الطريقة واا DraW5‏ بدلا من الطريقة "۵4٥‏ |0۲۷ التي تستخدم 
لطباعة الصورء مع العلم بأن الطريقة 0۲8۷5۲١4‏ لا تقوم بتكبير النصوص لتملئ الصفحة 
ولكنها تعتمد على نوعية الخط ومقاسه التي قمنا بتحديدها كما هو موضح في الكود. كما قمنا 
بتحديد النقطة العمودية والأفقية على صفحة الطباعة (120 ,120) التي سيقوم البرنامج بالبدء 
من عندها في عملية الطباعةء ليظهر النص المطبوع كما هو في صندوق النص» كما قمنا في 
نهاية الكود بتحديد أن هذه هي نهاية الصفحة التي يقوم البرنامج بطباعتها (أي أن النص من 
صفحة واحدة وليس من صفحتين أو أكثر) كما في المثال السابق. 
بعد إضافة الكود قم بتنفيذ البرنامج وقم بطباعة بعض النصوص في صندوق النص» ستكون 
نافذة البرنامج كالتالي: 


8 طباعة النس 


قم بكتابة نص بداخل صندوق النص ثم اضغط على الزر "طباعة النص" 


ترقید 


نقطة (. ) انقطة عربية (. ) 
فاصلة (ء) 


بعد كتابة النص في صندوق النلص نضغط على الزر "طباعة النص"'٠‏ فسیقوم البرنامج مباشرة 
باع اتن عطاك افر ايك 


ملاحظة: لم يتم تدعيم التفاف النص حتى الآن في الطباعةء فإذا كان السطر طويلا فلن يقوم 
البرنامج بطباعته في أكثر من سطر (جرب كتابة سطر طويل في صندوق النص(بدون الضغط 
على الزر ١6"٤))ء‏ سنحل هذه المشكلة لاحقا وكما قلنا بأننا نتعلم عملية الطباعة خطوة 
خطوة» كما أن البرنامج لا يطبع من اليمين إلى اليسار وإنما من اليسار إلى اليمين هذه ستحتاج 
مراجعة في التعليمات المرفقة مع برنامج الفيجوال بيسك 00٤1۷ "٥۸۵10١‏ لتجاوزها. 


ر روع ارق رق 8 
طباعة ملفات نصية من أكثر من صفحة 


تعلمنا إلى الآن عمليات الطباعة البسيطة للنصوص والصور» في حالة التعامل مع ملفات 
النصوص الكبيرة التي تحتوي على أكثر من صفحة فإن الأمر يختلف» فالعيوب التي تترافق 
مع الطرق السابقة هي: لا يمكن طباعة الأسطر الطويلةء لا يمكن طباعة أكثر من صفحةء 
لماذا لا يتم طباعة أكثر من صفحة لإن طريقة الطباعة لا تفهم معنى الصفحة فقط تقوم بطباعة 
النص المطلوب طباعته في الطابعة إذا كان النص أكثر من صفحة فستقوم بطباعة الصفحة 
الأولى فقط وعدم الاهتمام إذا كان هناك أكثر من صفحة»ء ولحل هذه الإشكالية لابد من إنشاء 
صفحة وهمية (صفحة افتراضية) تسمى ۴٣1١۲۴۵٥‏ تم إرسال النص إليها حتى تمتلئ ومنها 


نرسل الصفحة كاملة إلى الطابعة ويتم إعادة هذا الإجراء حتى تنتهي الصفحات التي نقوم 
بطباغتها: هتاك طربقة أخرى لطاغة التص مشعند الصفحات باستكدام الطر ةة 
Graphics. MeasureString‏ حيث تقوم هذه الطريقة بحساب عدد الأحرف اللازم طباعتها 
ونوع الخط وحجم الحروف ثم حساب مقاسات الصفحة ثم تتفيذ الطباعة حتى آخر صفحة. 
لنأخذ الآن مثال على طباعة أكثر من صفحة والتعامل مع أدوات التحكم المتقدمة: 


١-نقوم‏ بإنشاء مشرو ع باسم My Print File‏ 


۲-نقوم بإضافة اثنين أزرار وصندوق نص من النوع المتقدم R1۸1 ٥×80×‏ وكذلك المكون 
OpenFileDialog‏ تم نضيف المكونات ılllة‏ Jطبlعة PrintDoCUMeNt‏ و 
Print Diag‏ . المكون الأخير )ه٥٣٣۴‏ يستخدم لعرض خيارات الطباعة في 
برنامجك قبل طباعة أي صفحة. 


۳-نقوم بتغيير الخاصية ۳۴ا للزر الأول إلى ١عم 1١0‏ وللتاني إلى ٣٤‏ ا٣۴٣0‏ ونغير 
الخاصية ١عاطه"ع‏ للزر الثاني إلى ٥ا۴۵‏ ونقوم بتغيير بعض الخصائص للكائنات على 


PrintDocumenik 1‏ ا GpenFileDialog1 E4 PrintDialog1‏ ا 


٤-ننقر‏ نقرتين )٤1)٣-ع‏ )الاه على الزر 'فتح' لنذهب إلى الحدث )1٤)‏ التابع للزر في 
منطقة الكود» وفي منطقة الكود نذهب لأعلى الكود ونكتب الكود التالي لاستيراد مجال 
الأسماء: ۰ ۰ 
ما یسمی بتدفق nlڻز Imports System.IO ‘for FileStream class‏ 
Imports System.Drawing.Printing‏ 
تم استيراد مجال الأسماء الأول ۳.|0ع ءل لقراءة الملف النصي بطريقة ما يسمى بالتدفق 
عا e5tا۴‏ (لا أعرف فيما إذا كانت الترجمة صحيحة)ء فطريقة التدفق هي قراءة الملف 
النصي من الأول إلى الأخير بشكل متسلسل» بحيث تقرأً كل سطر على حده أو كل كلمة على حده. 
٥-نقوم‏ بتعریف المتغیرات العامة تحت ۴0٥۲۳٣١1‏ ؟كھاح ان۴ نكتب هذا الكود: 
Private PrintPageSettings As New PageSettings‏ 
Private StringToPrint As String‏ 
Private PrintFont As New Font("Arial", 10)‏ 
تقوم هذه التعريفات بتحديد معلومات عن الصفحات التي سنقوم بطباعتها. 
٦-نذهب‏ الآن للحدث )1)€_١عم0‏ ”| لنكتب الكود التالي: 
Dim FilePath As String‏ 
عرض نافذة حوار للبحث عن ملف نصي' 
OpenFileDialog1.Filter = "Text files (*.txt)| *.txt"‏ 
OpenFileDialog1.ShowDialog()‏ 
إذا لم يختر المستخدم 'إلغاء الأمر"» قم بتحميل مسار الملف' 
If OpenFileDialog1.FileName <> "" Then‏ 
FilePath = OpenFileDialog1.FileName‏ 
Try‏ 


Dim MyFileStream As New FileStream(FilePath, 
FileMode. Open) 


Rich TextBox1.LoadFile(MyFileStream, _ 

Rich TextBoxStreamType.Plain Text) 

MyFileStream. Close () 

نديد التضو شن اة 

StringToPrint = Rich TextBox1. Text 

تفعيل الزر طباعة' 

btnPrint. Enabled = True 

Catch ex As Exception 
عرض رسالة الخطأ إذا حدث خطا'‎ 
MessageBox.Show(ex.Message) 
End Try 
End If 
عندما يقوم المستخدم بالضغط علی الزر 'فتح" سيقوم البرنامج بفتح نافدذة حوار له لیختار ملف»‎ 
وسيضع البرنامج فلتر بحيث لا تظهر إلا الملفات النصية باعتماد اللاحقة × في الفلترء إذا لم‎ 
يلغي المستخدم الأمر وقام باختيار ملف نصي فسيقوم البرنامج بقراءة الملف النصي وكتابته في‎ 
صندوق النص» وسيقوم بتفعيل الزر 'طباعة" ليستطيع طباعة النص» بقي لنا الآن كود الطباعة‎ 
وكود إظهار خيارات الطباعة.‎ 
۷-بالنقر مرتين على الزر 'طباعة" سينتقل البرنامج مباشرة إلى منطقة الكود وإلى الحدث‎ 
)ءا التابع للزر نكتب الكود التالي:‎ 
Try 


خذة بخبار ات الصافحة الحالة 
PrintDocument1.DefaultPageSettings = PrintPageSettings‏ 
قم بتحديد النص المراد طباعته وقم بإظهار خيارات الطباعة' 
StringToPrint = Rich TextBox1. Text‏ 
PrintDialog1.Document = PrintDocument1‏ 
Dim result As DialogResult = PrintDialog1.ShowDialog()‏ 
قم بطباعة الصفحة )0 إذا ضغط المستخدم على نعم أو' 
If result = DialogResult.OK Then‏ 
PrintDocument1.Print()‏ 
End If‏ 
Catch ex As Exception‏ 
لعرض رسالة خطأً إذا حدث' 
MessageBox.Show(ex.Message)‏ 
End Try‏ 
في الكود أعلاه قمنا بتحديد خيارات الطباعة الافتراضيةء كما قمنا بإسناد النص الموجود بداخل 
صندوق النص إلى المتغير 5۲1١410۲٣١‏ الذي تم تعريفه في بداية صفحة الكود» بعدها يقوم 
الكود بعرض خيارات الطباعة ليقوم المستخدم باختيار الطابعة المراد الطباعة فيها وكذلك عدد 
النسخ أو الطباعة إلى ملف وغيرها من الخيارات» إذا قام المستخدم بالموافقة وذلك بالضغط على 
)0 أو مرافق يقوم البرنامج بإرسال أمر الطباعة إلى الطابعة بالكود: 
PrintDocument1. Print()‏ 


سنقوم الآن بكتابة الود اللازم للمکون ۸1ع" .۴٣١ ۸,۲00 ٥Cu‏ 


۸-نذهب إلى منطقة التصميم وننقر نقرتين )ء)٣-ع‏ )ام0 على المكون 
Print ocumen1‏ لیأخذنا الفیجوال بیسك مباشرة إلی الحدث ۴٣١٣٤۴٥‏ التابع 
للمكون نكتب الكود التالي في الحدث: 
Dim numChars As Integer‏ 
Dim numLines As Integer‏ 
Dim stringForPage As String‏ 


Dim strFormat As New StringFormat 
بالإعتماد على إعدادات الصفحة» قم بتحديد مستطيل وهمي على الصفحة'‎ 
Dim rectDraw As New RectangleF( _ 


e.MarginBounds.Left, e.MarginBounds. Top, 


e.MarginBounds.Width, e.MarginBounds. Height) 

قم بتعريف مساحة لتحديد كمية النصوص اللازم طباعتها على الصفحة الواحدة' 

قم بإعتماد طول الصفحة ناقصاً سطر واحد حتى نطبع النص بصورة صحيحة' 

Dim sizeMeasure As New SizeF (e.MarginBounds.Width, _ 
e.MarginBounds.Height - PrintFont. GetHeight(e.Graphics)) 
عند طباعة النصوص الطويلةء فارق بين الكلمات'‎ 

strFormat. Trimming = String Trimming. Word 


‘Compute how many chars and lines can fit based on 
sizeMeasure 


قم بحساب كم عدد الأسطر والحروف بالإعتماد على المقاسات ' 
e.Graphics.MeasureString (String ToPrint, PrintFont, _‏ 


sizeMeasure, strFormat, numChars, numLines) 


قم بحساب عدد الحروف التي تملئ الصفحة الواحدة' 
stringForPage = StringToPrint.Substring(O, numChars)‏ 
قم بطباعة النص على الصفحة الحالية' 
e.Graphics.DrawString(stringForPage, PrintFont, _‏ 
Brushes. Black, rectDraw, strFormat)‏ 
إذا كان هناك نص إضافي قم بالتوضيح بأن هناك صفحات إضافية' 
If numChars < StringToPrint. Length Then‏ 
قم بطر ح النص المطبوع من بقية النص' 
StringToPrint = String ToPrint.Substring(numChars)‏ 
e.HasMorePages = True‏ 
Else‏ 
e.HasMorePages = False‏ 
‘All text has been printed, so restore string‏ 
بعد طباعة النص كاملاء قم بإعادة النص إلى صندوق النص ' 
StringToPrint = Rich TextBox1. Text‏ 
End If‏ 
E E AT E E LE eS ahr JE SE OSE EK‏ 
وإنما تسهل علينا عملية مراجعة الكود تبدأً التعليقات ب “ في أول سطر الكود. 
يقوم الكود أعلاه بحساب مستطيل الطباعة على الصفحة بالإعتماد على الإعدادات المختارة من 
نافذة خيارات الطباعةء بعد حساب مساحة مستطيل الطباعة يقوم بطباعة الأسطر وإذا كان هناك 


سطر طويل يقوم بعملية التفاف للنص إلى السطر الذي يليه حتى تتم طباعة كل النص بطريقة 
طبيعية» تم تعريف منطقة الطباعة بالمتغير Wه0۲٣۲۴‏ والذي یعتمد على الفأة RectangleF‏ 


وتم استخدام المتغیر ۳٣ ۵٤‏ ۲١۲۴ء‏ والطريقة 1۲۳۳1۸4 لحذف النصوص خارج حدود 
الصفحةء تمت طباعة النص باستخدام طريقة طباعة النصوص ١3‏ W5۲ه0۲ء‏ أما خيار 
الصفحات الإضافية عو ة۴ ٥M0۲ءه1٣‏ فتم ضبطه على ٥ا۲۲‏ لإن النص طويل ويحتوي على 
أكثر من صفحة»ء في الأخير تمت إعادة محتويات صندوق النص ۴×80×1 R1۸۲‏ إليه. 


صحيح أن هذا المشروع طويل ومعقد لكن صدقني هذه الطريقة ستستخدمها في أكثر مشاريع 
الطباعة تعقيدا ولن تحتاج أكثر من هذاء لذلك قم بمراجعة الكود أكثر من مرة للاستفادة والتعلم من 
هذا المشروع» بالنسبة للمستخدم العربي ستحتاج دالة أو طريقة معينة لتحويل النص من اليمين إلى 
اليسار وهذا ليس صعبا بالنسبة لمن سيبحث في تعليمات الفيجوال بيسك 210۸ 00u"‏ أو 
على إنترنت. 

قم بتنفيذ المشروع وجرب الطباعة من ملف نصي كبير يحتوي على أكثر من صفحةء سيفتح لك 
البرنامج خيارات الطباعة لاختيار الطابعة المناسبة وبعد اختيار الطابعة والموافقة سيقوم البرنامج 
بطباعة النص في الملف النصي. 


مبروك لقد قمت بتصميم برنامج الطباعة الذي قد تحتاج لتطبيقه في أي مهمة طباعة في مشاريعك. 


ملاحظة: نسخة من المشروع في المرفق رقم ..٥٣‏ 

خطوة إضافية للأمام: إضافة معاينة لصفحة الطباعة وكذلك صفحة إعدادات 

التطبيق السابق يشمل على العديد من مهام الطباعةء لكنك يمكنك أن تصبح أكثر احترافية بإضافة 
صفحة معاينة قبل الطباعة وكذلك صفحة لإعدادات صفحة الطباعةء المكون 

Print PreviewDial £‏ يستخدم لعرض صفحة معاينة قبل الطباعة» أما المكون 

£ اeSetupDiaهP‏ فيستخدم لعرض إعدادات صفحة الطباعةء مثل بقية المكونات تستطيع 
إضافة هذين المكونين من صندوق الأدوات إلى مشاريعك أو تعريفهما وإضافتهما بواسطة الكودء 
سنستفيد من المشروع السابق ونبداً: 


١-إذا‏ لم تقم بتطبيق المشروع السابق يمكنك الاستفادة من المرفق رقم ٠٠٠١١‏ نفتح المشروع 
0 


۲-نقوم بإضافة اثنين أزرار للنموذج (الفورم)ء تم نقوم بإضافة المكون 
ogاPrintPreviewDial‏ وكذلك المكون و0اھi(مtuع5عوھ۴‏ إلى المشروع. 

۳- نقوم ببعض التعديلات على خصائص الأزرار المضافة كالتالي: الزر الأول ۳۴ ها نغيره 
ل مtuعكtnط‏ والخاصية ٠٠×٤‏ ل 'إعداد الصفحة" أما الزر الثاني ف ٥٠۳ا‏ تغيرها 
إلى Wع۷iعاtn۴ط‏ و ext‏ إلى "معاينة الصفحة" ونضبط الخاصية كعاطه"ع لكلاهما 
على .۴al%€‏ 


-٤‏ بعد التعديلات سيظهر النموذج (الفورم) بهذا الشكل: 


[&Î openFlenialagı ÎGprntDialg1 lğgPrntDocument!  EfPagesetupDialag1 
نقرتين على الزر "إعداد الصفحة" ونكتب الكود التالي في الحدث )ءا التابع للزر:‎ رقنن-٥‎ 
Try 
قم بتحميل إعدادات الصفحة وإظهار نافذة إعدادات الصفحة'‎ 
PageSetupDialog1.PageSettings = PrintPageSettings 
PageSetupDialog1.ShowDialog() 


Catch ex As Exception 


إظهار رسالة خطأ إن وأجد' 
MessageBox.Show(ex.Message)‏ 
End Try‏ 
الكود أعلاه سيقوم بإظهار نافذة أعدادات صفحة الطباعةء قد قمنا بتعريف المتغير 
ئ Print aeSe tti‏ في بداية صفحة الكود» هذا المتغير يحتوي على القيم الافتراضية 
لإعدادات القيمة ونستخدم المكون 01)ه01( مدا ع5عوه۴ لفتح نافذة إعدادات الطباعة وأخذ القيم 
من هذا المتغير ثم التعديل على القيم في حالة تعديل بعض الإعدادات مثل هوامش الطباعة 
وغيرها. 
-نقوم بإظهار النموذج مرة أُخرى والنقر مرتين )أا٤-عاطناه0‏ على الزر 'معاينة 
الصفحة" تم نكتب الكود التالي في منطقة الكود: 
Try‏ 
قم بتحديد إعدادات الطباعة للصفحة الحالية' 
PrintDocument1.DefaultPageSettings = PrintPageSettings‏ 
StringToPrint = Rich TextBox1. Text‏ 
PrintPreviewDialog1. Document = PrintDocument1‏ 
PrintPreviewDialog1.ShowDialog()‏ 
Catch ex As Exception‏ 
إظهار رسالة خطأ إن وأجد' 
MessageBox.Show(ex.Message)‏ 


End Try 


يقوم الكود أعلاه بأخذ الإعدادات الافتراضيةء هذه الإعدادات هامة جدا حيث يستفيد منها البرنامج 
في حساب عدد الحروف في الصفحة الواحدةء ثم يقوم بأخذ النص من صندوق النص 
Rich "ex 01‏ لغرض إظهاره في نافذة المعاينة قبل الطباعة. 


۷-إذا قمنا بتنفيذ البرنامج الآن ستظهر لنا هذه الشاشة: 


لعلنا سنتذكر الآن بأننا لم نكتب كود يقوم بتفعيل الأزرار "إعداد الصفحة" و "معاينة الصفحة" بعد 
تحميل الملف النصي في صندوق النص» نعود إلى الكود لنضيف كود يقوم بتفعيل الأزرار 
المذكورة بعد فتح ملف نصي في صندوق النلص: 
في الحدث )٤1ا‏ التابع للزر 'فتح" (١0۵١‏ نضيف كيف التفعيل بعد كود تفعيل الزر طباعة 
كالتالي: فبعد هذا السطر من الكود: 

btnPrint. Enabled = True 
نضيف هذين السطرين لتفعيل الزرين "إعداد الصفحة" و 'معاينة الصفحة" على التوالي:‎ 

btnSetup.Enabled = True 


btnPreview.Enabled = True 


۸-نقوم الآن بتنفيذ البرنامج وفتح ملف نصي» ثم تعديل إعدادات صفحة الطباعة من الزر 
'إعداد الصفحة" ثم معاينة الصفحة قبل الطباعةء قم بالتعديل على الصفحة مرة ثانية وثالثة 
ثم مشاهدة أثر تعديلاتك على صفحة معاينة قبل الطباعة. 


..٥٤ ملاحظة نسخة من المشروع في المرفق رقم‎ -٩۹ 

قمت بتجربة المشروع الأخير وتطبيق بعض التعديلات ولاحظت السهولة الكبيرة في التعامل مع 

نافذة الطباعة وإعدادات الطباعة وكذلك المعاينة قبل الطباعةء وكلمة حق هذا المشروع من أفضل 
المشاريع في هذا الكتاب ويجيب على الكثير من أسئلة الطباعةء هناك عيب لهذا المشروع بحيث لا 
يقوم بالطباعة على الصفحات من اليمين لليسارء نعم يقوم بطباعة العربي بشكل سليم ولكنه بلصِق 
ha TESS Ea aA ETE E SO AE a a‏ 

من الكود إذا رجعنا إلى تعليمات الفيجوال بيسك .Document†a†10١‏ 

خلاصة الفصل السابع عشر 

من اجل أن قم بالتالي 


التسهيل في عملية كتابة ٠‏ نكتب الكود التالي في أعلى منطقة الكود: 


Imports System. Drawing. Printing أكواد الطباعة‎ 


لمراقبة حدث الطباعة نستخدم الجملة ٣عال Adda‏ مع 0f۴كes Addr‏ تم المعامل كما في الكود: 
AddHandler PrintDocument1.PrintPage, _‏ 
AddressOf Me.PrintGraphic‏ 

إنشاء الكائن نستطيع إضافة الکائن ۴٣٣00 عںu "٥۸٤‏ من صندوق الأدوات» أو إضافته 


PrintDocument‏ بطريقة برمجية كما في الكود التالي: 


في مشرو عك 
Dim PrintDoc As New PrintDocument‏ 


طباعة الصور من 


مراقب أحداث الطباعة 


مراقب أحداث الطباعة 


الظا2ة 


على أكثر من صفحة 


فتح ملف نصي 
باستخدام الفئة 
pû FileStream‏ 


ا وات ا 


نستخدم الطريقة ٥3ة"|Wه,0۲‏ .كءآامه6۲ لطباعة الصور كالتالي: 


ev.Graphics. Drawlmage (Image.FromFile _ 


(TextBox1.Text), ev.Graphics.VisibleClipBounds) 
مهات لطباعة النصوص» مثال:‎ ۸1٤5. 0۲۷5٣١١١ نستخدم الطريقة‎ 
ev.Graphics. DrawString(TextBox1. Text, _ 


New Font("Arial", 11, FontStyle.Regular), _‏ 
Brushes. Black, 120, 120)‏ 
نستخدم الطريقة ۴٣١١٤‏ كالتالي: 
PrintDoc. Print()‏ 
إنشاء صفحة وهمية (صفحة افتراضية) تسمی ۴٣١٣۲۴۵٥‏ ثم إرسال النص 
إليها حتى تمتلئ ومنها نرسل الصفحة كاملة إلى الطابعة ويتم إعادة هذا 
الإجراء حتى تنتهي الصفحات التي نقوم بطباعتهاء هناك طريقة أخرى 
لطباعة النص متعدد الصفحات باستخدام الطريقة 
Graphics. MeasureStrَing‏ حيث تقوم هذه الطريقة بحساب عدد 
الأحرف اللازم طباعتها ونوع الخط وحجم الحروف ثم حساب مقاسات 
نقوم بتعريف متغير من النوع 85۲۴4۳ ]آ۴ ثم نحدد مسار وطبيعة الملف» 
ثم نقوم بتحميل محتويات الملف النصي بطريقفة انسيابية باستخدام الطريقة 


ream‏ e5tا۴‏ تم نغلق مسار الانسياب 5۲۴4۳ كما في المثال: 


عا St‏ في بداية منطقة الكود لاستيراد lلفة' Imports System.|O0‏ 


إلى صندوق نص 


إظهار نوافذ الطباعة في نقوم بإضlة‏ |nlكونlت g «PrintDialog, PrintPreviewDialog‏ 


برنامجك 0اPaeSetupDia‏ إلى برنامجك ثم كتابة الأكواد الخاصة بهم. 


الجزء الثالث: قواعد البيانات وبرمجة إنترنت (الويب) 


في الجزء الثالث من هذا الكتاب سوف تتعلم كيف تتعامل مع البيانات المُخزَنة في قواعد البيانات 
وفي مواقع إنترنت» في البداية نستعلم كيفية التعامل مع قواعد البيانات باستخدام تقنية ۸00.٤۲‏ 
وهي تقنية هامة للتعامل مع قواعد البيانات» وسوف نتعلم كيفية عرض البيانات وتعديلها والبحث 
فيها باستخدام بعض الأدوات وكذلك الكودء في الفيجوال بيسك ۲۰٠۸‏ تم تحديث العديد من 
الأساليب من أجل التعامل الأمثل مع قواعد البيانات» لن نتعامل مع قواعد البيانات على أنها 
سجلات من البيانات ولكن هناك العديد من التقنيات للتعامل مع البيانات بكل احترافية. 


الفصل الثامن عشر: البداية مع تقنية ۸00.٤‏ 


قواعد البيانات: هي مجموعة من البيانات المتجانسة والمنظمة المخزونة في ملف. نستطيع إنشاء 
ملفات قواعد البيانات باستخدام البرامج الخاصة بقواعد البيانات مثل مايكروسوفت أكسس 


Dim MyFileStream As New FileStream( _ 
FilePath, FileMode.Open) 

Rich TextBox1.LoadFile(MyFileStream, _ 
RichTextBoxStreamType.Plain Text) 
MyFileStream. Close () 


gİ Microsoft Access‏ إس My SQL gyi Microsoft SQL J! gus‏ أو Oracle‏ وغيرھا 
من المنتجات التي تسهل علينا إنشاء ملفات قواعد البيانات» كذلك نستطيع تخزين ونقل البيانات 
باستخدام ملفات ال ا0×. قواعد البيانات هامة جدأ للعديد من التطبيقات» فكل التطبيقات تقريبا 
تحتاج لقواعد البيانات» وكل المنشآت التجارية والعامية تحتاج لتطبيقات قواعد البيانات» فدفتر 
عناوين العملاء و تنظيم المخازن والفواتير وحسابات العملاء وإدارة الأصول وسجلات الموظفين 
كلها تعتمد على قواعد البيانات. نستطيع إنشاء قواعد بيانات جديدة باستخدام الفيجوال بيسك ۲٠٠۸‏ 
لكن الفيجوال بك ٠٠١٠۸:‏ ك لفراضن: التعامل مم قو اغد الموجودة مسفاء لاشتر اصن الببانات 
والتعديل عليها. 


تطبيقات قواعد البيانات المصممة الفيجوال بيسك ۲٠٠١‏ تعمل بكفاءة في نسخة الفيجوال بيسك 
٠٠۸‏ فمعظم الأساليب المستخدمة في نسخة ٠٠٠١‏ لا زالت هي نفسها في نسخة ۸٠٠۲ء‏ مع 
وجود تطويرات في نسخة «۲٠٠۸‏ وأهم هذه التطويرات Language-lntegrated laa‏ 
(Query (LINQ‏ ولك ۸0.NE1 Entity Framework‏ » لابد من استخدام التقنیتین لمن 
يريد احتراف التعامل مع قواعد البيانات. 


۵| تم تضمينها في نسخة ۲٠٠۸‏ وتسهل لنا تصميم أوامر للتعامل مع قواعد البينات بطريقة 
البرمجة كائنية التوجه التي تختصر لنا الوقت والجهد. وتم إصدار تنıة ADO.NET Entity‏ 
۴raMeW 0)‏ بعدها والتي أضافت كائنات وميزات جديدة لتسهيل التعامل مع قواعد البيانات. 


مصطلحات قواعد البيانات 


مع الوقت تتطور تقنيات قواعد البيانات وتظهر تقنيات مساعدة كثيرةء تعلم كل التقنيات الجديدة قد 
يصيب المبرمج بالإحباط فلابد من التعامل مع المسألة من منظور الحاجة فإذا احتجنا لتقنية معينة 
أو ميزة معينة فلنبحث عنهاء الإطار العام لقواعد البيانات لم يتغير منذ ثمانينات القرن الماضي»ء 
هناك العديد من التقنيات نعم لكن الإطار العام لم يتغير» لمعرفة فكرة عمل قواعد البيانات لابد من 
قراءة موضو ع لمحترف قواعد بيانات في موقع الفريق العربي للبرمجة» رقم الموضوع في 
المنتدى هو ۲۳۷١ء‏ هذا الموضوع يضع بين يديك ماهية قواعد البيانات بغض النظر عن 
البرنامج المستخدم في التعامل معهاء نعود لمسألة مصطلحات قواعد البيانات» الحقل ۴٥1١‏ (أو 


العمود) هو مجموعة من البيانات من نفس النوع المُخزنة بداخل قاعدة البيانات» هذه البيانات قد 
تكون أرقام هواتف العملاء أو عناوين شركاتهم أو ملاحظات. كل البيانات عن شركة واحدة تسمى 
سجل ۸8٤0۲١‏ (سطر)» وعندما يتم إنشاء قواعد البيانات تتم عملية إدخال البيانات في الأعمدة 
والأسطر» تتقاطع الحقول مع السجلات أو الأعمدة مع الأسطر كما في الشكل: 


قل آو عمود EÊ Instructors‏ 


Extension ~- Add New Field 


Instructor ID ” Instructor > [Phone Num ~” 
1 Delamarco, Ste| 3105551234 


cey vons | EF io 


3 Barr, Adam 
4 Wilson, Dan 
5 Burke, Brian 
û6 Oviatt, Lori 
7 Dyck, Shelley 3605551111 
8 Halvorson, Mic 2065554444 
أ‎ 3 Halvorson, Kir] 0123456 7890 
*# [New] 


قواعد البيانات العلائقية #كئة ة0 ٣21‏ ههام۸ هي قواعد البيانات التي تحتوي على أكثر من 
جدول تربط بينهم علاقات» فمثلاً جدول للعملاء وعناوينهم وجدول بالفواتير المستحقة عليهم. معظم 
قواعد البيانات التي سنتعامل معها بالفيجوال بيسك ۲٠٠۸‏ هو قواعد بيانات علائقية لأنها تحتو 
على أكثر من جدول مرتبطين بعضهم ببعض. 

تقنية ال ۸00.٤١‏ تستخدم أكثر من مكون للتعامل مع قواعد البينات الشكل التالي يوضح 
المدخل الذي سنتعلمه في هذا الفصل للتعامل مع قواعد البيانات: 


Connection Dataset 


aS کک تا‎ 
1 11 tij FF HI * 
Database So HnstrULbOrs 
3 E 2 5 5 
Table Data 


adapter navigation IC Bar. Adan | 


Phan [310| 55-432 


أولاً هتاك موصي ٠٤0۸۸6٤110۸‏ والذي يحتوي على معلومات عن قاعدة اليانات ويكتؤي على 
معلومات تستخدمُها بقية المكونات للربط مع قاعدة البيانات» إذا كانت قاعدة البيانات تحتوي على 
كلمة سر فهذا المُوصيل يحتوي على كلمة السر لقاعدة البيانات» بعد قاعدة البيانات هناك ما يسمى 
ب أعءهtه0a‏ وهي عبارة عن (عارض) لما تحتويه الجداول أو الجدول بداخل قاعدة البيانات» 
بعد عملية الربط مع قاعدة البيانات يقوم محرك الربط مع قاعدة البيانات بإنشاء ملف × ليسهل 
عملية الربط بين قاعدة البيانات وبين llئnكونlٽت table adapter ڍy Dataset‏ ڪ data‏ 
ا" وكذلك تسهيل عملية التنقل بين البيانات أو تعديلها. 


التعامل مع قاعدة بيانات مايكروسوفت كى Microsoft Access‏ 


في المرفق رقم ٠٥١‏ ستجد قاعدة بیانات من نوع )۸° Microso0۴†‏ باسم 

Stu dents.md‏ وهي عبارة عن قاعدة بيانات أكاديمية تعليمية عن مجموعة من الطلاب»ء 
یناسب الملف sكع۸)z Mir oso)‏ نسخة ۲۰۰۲ و ۲٠٠۳‏ ويعمل على نسخة ۰۲۰۰۷ كما 
توجد نسخة من الملف لنسخة 2000 Access‏ تحت ulم «Students_2000format. mdb‏ 
البيانات بداخل قاعدة البيانات مفيدة لمن يريد مراجعة سجلات الطلاب سواء إدارة أو مدرسين» إذا 
لم يتوفر لديك ككع٤٤۸ ۸1٤۲١50۴‏ فلا تخف» فتوجد في الفيجوال بيسك ۲٠٠۸‏ وفي تقنية 
۸00.1 العديد من المكتبات التي تتعامل مع ملفات الأكسس وفهم محتوياتها بكل سهولةء 
نستفيد من ملف قاعدة البيانات في إنشاء أول مشروع في قواعد البيانات كالتالي: 


١-ننشئ‏ مشروع جديد بواسطة الفيجوال بيسك ۲۰۰۸ ونسمیه ۴0۲۳ .Ny AD0‏ 
۲-من قائمة 0ata‏ نختار Add New Data Source‏ ستظهر لنا النافذة التالية: 
Data Source Configuration Wizard‏ 


LL Choose a Data Source Type 
2 


Where will Ehe application get data from? 


ا ا 


Service ibject 


Lets ¥ou connect to a database and choose the database objects For ¥our application, This option creates a 
dataset, 


هذه النافذة تىىمى Data Source configura ti0¬ Wiad‏ وتسھل علینا عملیة الربط مع 
قواعد البيانات» الخيار عكه هه لفتح قاعدة بيانات محلية الخيار 58۲۷1٤٥۵‏ لفتح قاعدة بيانات 
على الوين والخيار الثالث لفتح كائن مُصمم سابقا. 


٣-نختر‏ ع25 هاه ثم ٥×‏ سيظهر لنا نافذة جديدة (ستقوم هذه النافذة بتكوين لنا 
معلومات عن الاتصال مع قاعدة البيانات وذلك بأخذ كل المعلومات عن قاعدة البيانات 
نختار منها نوع قاعدة البیانات بالضغط على الزر ۸۴W 0۸۸6٤10۸‏ ستظهر هذه 
النافدة: 


Choose Data Source 


Data source! 
Description 


Microsoft Access Database File 

Microsoft ODBC Data Source LIse this selection to connect to a 
Microsoft SQL Server Microsoft Arcess database file 
Microsoft SAL Server Compact 3,5 through the .NET Framework Data 
Microsoft SQL Server Database File Prawider for DLE DB. 


Oracle Database 
aokther îz 


Data provider: 


NET Framework, Data Provider For O # 
[_ [Always use this selection 


نختر منھا Microsoft Ass‏ ثم »C0ntinue‏ تظهر لنا نافذة جديدة کالتالي: 


Add Connection 


Enter information ka cannect to the selected data source or 
click "Zhange" to choose a different data source andfor 
provider, 


Daka source: 


Microsoft Access Database File iO 
MET Framework Data Provider 


Database file name: 


اس ا 


Log on to the database 


Password: 


[_[33¥e my password 


٤-من‏ هذه النافذة نختر مسار قاعدة البيانات بالضغط على الزر 8۲0W5۵€‏ ثم اسم وكلمة 
المرور لقاعدة البيانات»ء طبعاً مسار قاعدة البيانات ال 5۷8٠٤."‏ في المرفق رقم 
٠١‏ وبما أن قاعدة البيانات المذكورة لا تحتوي على اسم وكلمة سر فلا داعي لكتابتهماء 
وفي حالة كانت لديك قاعدة بيانات تحتوي على اسم وكلمة سر قم بكتابتهما ليتم إضافتهما 
إلى أوامر التواصل مع قاعدة البيانات. لنتأكد الآن من عملية التواصل مع قاعدة البيانات 
بالضغط على الزر تجربة التوصیل "٦٥۹ C0۸۸٥ ٤٤10۸"‏ فإذا كان مسار قاعدة البيانات 


جيك وكان انم الستكم وكلمة الشر يجحا (طبعا فن اعد اانا هدو لا يوج اسم 
وكلمة سر) ستظهر لك مثل هذه النافذة لتحبرك بنجاح العملية: 


Microsoft Visual Studio X) 


NT ا‎ Test connection succeeded, 


٥-نختر‏ 0۸ سيقوم الفيجوال بيسك بإرجاعنا لمعالج الاتصال مع قاعدة البيانات مرة ثانية 
نضغط على الزر (+) لنرى كود الاتصال الذي كتبة المعالج حتى الآن كما في هذه 
الصورة: 


Data Source Configuration Wizard 


L-L Choose Your Data Connection 


¥Yhich data connection should ¥our application use to connect to the database? 
students, mdb1 ب‎ New Lonnectioni,,. 


This connection string appears to contain sensitive data {for example, a password}, which is required to 
connect ko the database, storing sersiktiwe data in the connection string can be a security risk, Da 
wal wank to include this sensitive data in the connection string? 
Hoa, exclude sensitive daka fram the connection string, I will sek this information in my application cade, 
res, include sensitive data in the connection string. 


Lonnection string‏ اا 


Provider=Microsoft, Jet, QLEDB,4,0}Data Source="T 1 OSIMY ADO FormiStudents, mdb" 


& Previous | Next | Finish 


كود الاتصال يحتوي على نوع الاتصال وذلك بتحديد ال ٥۲‏ ل۴۲0۷ والمسمى 

Microsoft. لet. 0 LED B.4.0‏ » (هناك نوعین من ال P۲٥۷۵٥٤١‏ نتعامل بواسطتھما مع 
قواعد البيانات وھا Microsoft OLE DB‏ و Microsoft SQ) Server‏ وهناك العدید من 
ال ك٣‏ هل0۷ المقدمة من الشركات الأخرى للتعامل مع بقية أنواع قواعد البيانات). 


-نختار التالي 6×٤‏ ستظهر لنا صندوق حوار ليسأل فيما إذا كنا نرغب من الفيجوال بيسك 
بنقل قاعدة البيانات إلى مجلد البرنامج» في الوقت الحال لا نحتاج لذلك وعليه فنختار لا 
0» ستظهر لنا نافذة جديدة لتسأlنا‏ سJI‏ “ Do you want to save the‏ 
string to the application configuration file‏ ectionمconn؟”‏ هل ترید 
حفظ كود التوصيل مع قاعدة البيانات في ملف إعدادات البرنامج؟» الاختيار الافتراضي هو 
نعم ٠۲65‏ ويفضل هذا الخيار ليقوم الفيجوال بيسك بخزن بيانات الاتصال في ملف 
إعدادات البرنامج والذي يوجد في مستكشف ملفات المشرو ع Sou t10 ۸ ٤×)0۲€۲‏ من 
أجل إذا أردنا أن نغير مسار قاعدة البيانات نذهب إلى ملف إعدادات البرنامج في مستكشف 
المشروع ۲٤0۲)م×٤ t٥۸‏ ںام؟ ثم تعديل المسار. 


۷ نختار التالي Next‏ ليقوم البرنامج ٤‏ بحفظ بیانات الاتصال»› و سیفتح أنا نافذة جديدة لنقوم 
باختيار جزء من قاعدة البيانات (إذا كنا نحتاج فقط جزء منها) أو اختيار قاعدة البيانات 


Data Source Configuration Wizard 


LL Choose Your Database Objects 
0 


which database objects do ¥ouı want in ¥our dataset? 


a-Olg Tables 
IH OE Wiens 


DataSet name: 


StudentsbataSekt 


وكما وضحنا إذا كانت قاعدة البيانات كبيرة جدأ يمكننا اختيار الجزء الذي يخصنا فقط منهاء البنود 
التي سنختارها من قاعدة البيانات ستسمى بداخل مشروعنا كائنات قاعدة البيانات عdatabas‏ 
6 عزطه» وقد تحتوي هذه الكائنات على سجلات وجداول و...و غيرهاء المصطلح الذي يستخدم 
لتسمية كل هذه الكائنات المُختارة هو ا#ءهاهل (مجموعة البيانات)» اسم مجموعة البيانات في 
الشاشة أعلاه 5#ة†ة(ءا"ع Stud‏ نستطيع تغييره أو الإبقاء عليه. 


ملاحظة: قمنا الآن بإنشاء مجموعة البيانات ا#ءههل للتعامل مع البيانات» إذا قمنا بحذف أو 
إضافة أو تعديل لمجموعة البيانات ا٥5هه‏ فلن يقوم البرنامج بنقل هذه التعديلات لقاعدة 
البيانات الأصلية إلا إذا كتبنا كود برمجي للقيام بهذه العمليةء لذلك تسمى هذه الطريقة من الاتصال 
بقاعدة البيانات بالطريقة المنفصلة أو مصدر البيانات المنفصل» أي أن هناك طبقة بين مصدر 
البيانات الأصلي وبين مجموعة البيانات عند المستخدم. 


۸-نختار العلامة (+) أمام الجداول كعاطه۲ ليتم عرض الجداول الموجودة بداخل قاعدة 
البيانات سنختار الجدول ۳0۲5 |١5۲۷‏ فقط من بين بقية الجداول» نختار العلامة (+) أما 
الجدول ٣١‏ 0اع ٣كا‏ ونختار من إانحقوJ InstruCtOr jılJl‏ ڪ, PhoneNumber‏ 
فقط» ستكون نافذة الاختيار كما في الصورة: 


Data Source Configuration Wizard 


LL Choose Your Database Objects 
®» 


which database objects do ¥ou wank in Your dataset? 
EOL ]Tables| 
. Hl 1 Assignments 
` E-I Casses 
1 Hl HE Departments 
E 2: Instructors 
“I Ê] InstrurtarID 
Ê] Instructor 
E] PhoneMumber 
iH Extension 


DE Results 
2] 1 students 
HA“ I Students And Classes 


LIE Smitchboard Items 


Dataset name: 
| Studentspata5et 


Mest = Finish Lancel 


۹-نختر آ١۴‏ لإكمال عملية التواصل مع قاعدة البيانات. الآن انتهى الفيجوال بيسك ۲٠٠۸‏ 
من التواصل مع قاعدة البيانات وتم تكوين أ٥ءه0a‏ (مجموعة بيانات) فقط بالبيانات 
المختارة. 

-٠‏ نضغط على الزر ۸)1 58۷8 لحفظ الإجراءات التي قمنا بها. 

-۱١‏ لنذهب الآن إلى مستكشف المشرو ع 0۲۵۲)م×٤‏ ۸٥اه‏ الذي يكون كما في 
هذه الصورة: 


Salukian Explorer 


AILE 


3E iy ADO Form 
e a] My Project 
n E app.config 


[Au studentsDataSet, xsd 


aT Explorer Data SOUFCES 
هذا هو الملف‎ Stu dعntء(a)aه5ع٥.×5إ نرى في مستكشف المشروع ملف جديد وهو‎ 


الذي تم تكوينه خلال عملية الاتصال مع قاعدة البيانات وهو من النوع )۸)» مجموعة 
البيانات النموذجية كأعكهاهك ك١عملا‏ تحتوي على هذا النوع من الملفات لكن مجموعة 
البيانات الغير نموذجية كأعكهاهك d١عمرا-”u‏ لا تحتوي على هذا النوع من الملفات»› 
تعتبر مجموعة البيانات النموذجية أفضل من الغير نموذجية لأنها تفعل وتسهل عملية 
الإكمال التلقائي ه١" |١6115٥‏ في محرر الكود وتقدم لك معلومات معينة عن الجداول 
والحقول التي تقوم بكتابتها في محرر الكود. 


1۲ ننقر على الملف Students 0a †a5€.×54‏ سنری عرض لما یحتویه هذا 
الملف وذلك بعر ص سجلات قاعدة البيانات› يسمی هذا مصمم مجمو عة البيانات 


Dataset Designer‏ هذا المصمم يحتوي على الكائنات التي تقوم بالتوصيل بين 
برنامجك وقاعدة البيانات» من خلال هذا المصمم تستطيع أن تكتب أوامر لقواعد البيانات 


I‏ قم بالنقر على الحقل |٣۲۷ ٤0۲‏ ثم اضغط على ۴4 لننتقل للعمل على 
الخصائص ٣)٥۴‏ eمProp.‏ 


٤‏ نختار الخاصية ۸ال" عا×a"‏ من الخصائص» ستكون شاشتنا كما في هذه 
الصورة: 


My ADO Form - Microsoft Yisual Studio EBE 
Be Edt ew Poet Bd Grbug Oka Took Tek rdw Hek 
MR TARA A ADA sS SG ra a SE ARR Ag 
2| StumentshataSet.ked | Format wb = x ikon Rx; 
8َ 12Î My ADO Farm 
2 Ezî My Frojert 
Bj apptonig 
I Fûrtil vi 
Jul SuderksDakaSet. xsd 


Indkates the maximum lem Fle Une: “hlek Zii 
this column allows, اظ‎ 


إذا لاحظنا الخاصية ٣٤۸‏ 16×" وتعني (عدد الخانات في هذا الحقل) سنرى الرقم ٠١‏ فيها 
بحيث يسمح لنا البرنامج بخزن خمسين حرف أو رقم في هذا الحقل» طبعا الرقم ٠١‏ كافي ولا 
تحتام ليله وينكها فى وفت الحاجة: 


Data Sources Window ٽlنlıبll شاشة مصدر‎ 


تعتبر شاشة مصادر البيانات ميزة رائعة في بيئة التطوير ۲٠٠۸‏ إنها تختصر الوقت علينا في 
التعامل مع قواعد البيانات» إنها تقوم بعرض البيانات الموجودة في مجموعة البيانات أ#كة†0 
في تطبيقناء بل وتساعدنا على ربط البيانات في مجموعة البيانات ا٥5ه†ة(‏ مع عناصر التحكم 
في برنامجنا فتربط البيانات مع الأزرار وصناديق النص والمؤقتات وغيرهاء علينا أن نتذكر الآن 
بأن مجموعة البيانات ليست هي قاعدة البيانات وإنما هي عبارة عن وسيط بين برنامجنا وبين 
قاعدة البيانات وكل مجموعة من البيانات 0a٥‏ هي عبارة عن جزء من الجداول والحقول 
ولا تمثل كل قاعدة البيانات (حيث تعرض فقط الجداول والحقول التي اخترناها خلال مرحلة الربط 
مع قاعدة البيانات الموضحة في بداية هذا الفصل)» يتم عرض مجموعة البيانات أ#كهه0 بشكل 
شجري ۲۲۴۵ في شاشة مصادر البيانات W1 ^40W‏ ٥۲ا50‏ ها02» كل فرع يحتوي على 
الكائن الذي اخترته خلال عملية التصميم» كل مرة نقوم بتصميم مجموعة بيانات )04)56 تقوم 
شاشة مصادر البيانات بإضافة فرع في الشجرة لتسهل علينا عملية ربط مجموعة البيانات 
t€‏ مع عناصر التحكم على النموذج (الفورم)ء قد تتساءل: أين توجد شاشة مصادر البيانات 
Data 65‏ ? الجواب توجد مُدمَّجة مع مستکشف المشرو ع ١٥0۲)مE×p‏ 10۸٤ھ‏ ںاہ أعلی 
يمين بيئة التطوير» إذا لم تكن ظاهرة إذهب إلى النموذج ۴١۲۳1‏ في مرحلة التصميم ثم من 
القائمة 0ata‏ اختر Show Data Sources‏ أو بالضغط على الاختصار .Shift+A|t+D5‏ 


بعد فتح شاشة مصادر البيانات نضغط على (+) بجانب ۳0۲5 |١5۲۷‏ لنرى الحقلين اللذين قمنا 
بإختيارهما في مرحلة الربط مع قاعدة البيانات» وستكون شاشه مصادر البيانات كما في الشكل 


لاضافة مجمرعة بياثات ع اونا جديدة 
نتعذیل مجموعة البيانات المختارة 
إضافة أو حذف حقول لمجمرعة البيائات 
اسن مجمرعة البيانات Da a Š ULE 3 Eel I XxX‏ 


EJ Instructors E 
abl Instructor ٠ج اسح الجذول الذي اخترناء من قاعدة البيانات‎ 
i.[abl] PhoneNumbe! 


اسم الحقول التي اخترثاها من ائجدرل 
وللعلم تم إختيار حقلين فقط من أربعة 


Eq solution Explorer 1 Data Sources 


أسهل طريقة لإضافة المعلومات الموجودة ضمن مجموعة البيانات 5#هه0 إلى تطبيقك هو 
استخدام الماوس في إضافة المكونات من شاشة مصادر llبlıنlت Data Sources Wid0W‏ 
إلى سطع النموذج (الفورم)ء في الفصل التاسع عشر سنتعلم كيفية إضافة جدول كامل إلى النموذج 
على شكل جدول 0446۲١١‏ لنقوم الآن بإضافة بعض العناصر من مجموعة البيانات 
Dataset‏ إلى تطبیقنا: 


١-نضغط‏ على الحقل |١5۲۷ ٣0۲‏ في مجمو عة البيانات أ٥ءهاه(‏ وسيفتح لنا قائمة 
بالمكونات التصميمية التي يمكن أن يتحول الحقل إليها كما في هذه الصورة: 


Data Sources I 
اا ق‎ 
I |n#] StudentspataSet 


é8 Instructors 
SBI Instructor 


TextBox‏ اطا 


LamboBoax 


Label 
LinkLabel 
ListBox 


[Nane] 


LUstoOMize... 


Eql solution Explorer 1 Data Sources ا‎ 


لاحظ بأننا نستطیع عرض الحقل |٣۶۲۷ ٤0۲‏ على الودج عة طرق وتقوم بيئة 
التطوير بعرض الطرق أو المكونات الأكثر استخداماًء فيمكننا عرض النص في الحقل 
المذكور في صندوق نص أو ×080ط" K0‏ أو ليبل أو قائمة ×80 ا ويمكننا تخصيص 
المكونات التي تظهر بإضافة مكونات جديدة أو بإلغاء مكونات بالضغط على 
.ust0mie‏ طبعا الأنسب لنا في مثل هذه الحالة هو صندوق النص لعرض المحتويات 
النصيةء تذكر بأنك تستطيع اختيار أياً من المكونات. 


FF ry AIO Farm - MiGFoSaTÎ Vis ial Sti di 
Fie EJ Hum Frac Bl Debug Dalila Format Tok Tt dee Help 
E Re TEN و کک کک کت 2 کک و و ا ا‎ 


EOE 


orm 1 |‏ ا 
al Fairer E‏ أ فوت ک ت ‏ غ ‏ طفا اه ت اا 


أ 
El Luealieri |‏ 


EE Î E relnictmnsÎ shlaidaptmr E] fehleidepterianaper 


lë Hy aî Fers EN Fl ie e 


شاهد التغييرات التي حدثت على النموذج بإضافة المكونات الجديدة بالأسفل وكذلك بعض 
الكائنات على النموذج والتي تسهل علينا عملية الربط مع الحقل |٣5۲۷ ٤)0۲‏ كل هذا 
بدون تدخل وتعب مناء لقد أضاف الفيجوال بيسك صندوق نصي ليقوم بعرض الحقل 
structorہا‏ على النموذج وأضاف لیبل بنفس اسم الحقل |٣5۲۷ ٤0۲‏ وأضاف 


Û i netî 


مستعرض في أعلى النموذج ثم أضاف خمسة مكونات في الأسفل كنا سنستغرق يومين 
كاملين لإضافتهم وكتابة أكوادهم من هذه المكونات: 

StudentsDataSet #‏ مجموعة البيانات 0456 التي صممناها سابقا والتي تعرض 
بعض الجداول وبعض الحقول من قاعدة البيانات طظۈd™ .Students.‏ 

# nstructorsBindingSourceا‏ عبارة عن مکون وسیط یقوم بالوصل بین الجدول 
٣tructoكا‏ والكائنات (صندوق النص أو غيره) التي تمثله على النموذج. 

rable Adapter #‏ nstructorsا‏ عبارة عن مکون وسیط یقوم بالربط بین مجموعة 
انبيlنlت .Student تٽlنlيبll ةدعla, StudentsDataSet‏ 

# nstructorsBindingNavigatorا‏ عبارة عن ومکون وسیط یسھل لنا عملیة 
استعراض البيانات على النموذج بشكل يمكننا الانتقال من السجل الحالي إلى الذي يليه أو 
ال الس اشاق وريا فا الست رضن من حذف أو قاف سحل حذك قاعذة السانات: 
سيلاحظ من له خبره بالفيجوال بيسك ۲٠٠١‏ وجود نفس المكونات للتعامل مع قواعد 
البيانات» وهناك بعض الفروق مع فيجوال بيسك .٠٠٠۳‏ 


الإالتقال لأول سجل 


نلاحظ أن المستعرض g20‏ nstructorsBindingNaViا‏ یسهل لنا الكثير في التنقل 
في قواعد البيانات» تستطيع حذف أو تعديل أحد أزرار المستعرض من خلال نافذة 
التصميم» فإذا أردنا عدم السماح للمستخدم بحذف السجلات بسهولة نحذف الزر الذي يقوم 
بالحذف خلال مرحلة التصميم» أو نستطيع اختيار المستعرض من نافذة الخصائص من 
الذهاب إلى الخاصية |6٠5‏ ونضغط على الزر ... ستظهر لنا هذه النافذة: 

Items Collection Editor 


select item and add to list below; InstructorsBindinalavigator 


Members: TruE 
FE InstructorsBindirıgNavigator LontextMenuStrip nane] 
Binding lawigatorayeFirstItem Enabled True 
ImeMade Hoantral 
ShoawIternT aalTips 
TabIndex 
TabStop 

YisiblE 

Data 


a {ApplicationSetktings} 
BindingNaYigatorMayeLastIkern {DataBindings) 


BindingMawigatorMoyePrewiousIterm 
Binding JayigatorSepar ator 

Binding MawigatorPositionItern 
BindingNaYigatorZountItem 


Binding awigatorSepar ator 1 
BindingMawigatorMaoyeRlextItam 


BindingMavigator Separator 2 EindirığSauIrcE InstructorsBindingSourt 
BindingHavigator Adder Item Tag 


Binding lawigatorDeleteItern Design 


{Mame} InstructorsBindingNa¥yig 2 


من هذه النافذة نستطيع عدم تفعيل المكون الذي لا نحتاج إليه كما نستطيع تعديل الخصائص 
للمكونات بالشكل الذي يناسبنا. 


٤‏ نقوم الآن بتنفيذ البرنامج مرة ثانية وإضافة وإلغاء سجلات والذهاب إلى آخر سجل وإلى 
أول سجل» وكما وضحنا من قبل سيقوم البرنامج بحذف السجل أو بإضافته أو تعديله ولكن 
في مجموعة البيانات 56هه0 فقطء ولن ينقل هذه التعديلات إلى قاعدة البيانات الرئيسية 
Students.‏ وللتأكد من ذلك نقوم بإعادة تشغيل البرنامج مرة أخرى لنشاهد 
السجلات كما هي بدون تعديل» وكما وضَحنا من قبل نستطيع جعل البرنامج يحفظ 
التعديلات في قاعدة البيانات الرئيسية بواسطة الكود. 


-٥‏ إذا قمنا بإعادة شغد البرنامج مرة ثانية سنلاحظ عدد السجلات تسعة فقط› ومن هذا 
نستنتج بأڻ التعديلات التي تتم خلال عملية تشغيل البرنامج تحفظ في الذاكرة المؤقتة ولا 


تحفظ في قاعدة البيانات» نقوم الآن بإغلاق التطبيق. مع ملاحظة أن نسخة من التطبيق في 
المرفق رقم ..٠١‏ 


حتى الآن قمنا بتصميم تطبيق يتعامل مع قواعد البيانات بدون كتابة كود واحد» اخترنا جدول واحد 
من قاعدة البيانات ثم اخترنا حقلين فقط ثم اخترنا أحدهما للتعامل معه» بالطبع تستطيع اختيار أكثر 
نا ل مت ا ار نت: 


استخدام المكونات في استعراض قواعد البيانات 


استخدمنا في المثال السابق طريقة لعرض المعلومات من قواعد البيانات» هذه الطريقة تتمثل 
بإدراج كائنات مجموعة البيانات هاه( من شاشة مصادر البيانات مباشرة إلى النموذج حيث 
نقوم باختيار الحقل ثم اختيار الطريقة المثلى التي يظهر بها الحقل (صندوق نص أو كائن آخر) 
على النموذج» لكن هل نستطيع إضافة المكونات إلى النموذج ثم ربطها مع قواعد البيانات بدلا من 
استخام الفكرتات المفترخة هن نافذة مضاين الانات» ببارة أخرئ هل انتطيح إضافة أذوات 
ومكونات من صندوق الأدوات ثم ربط هذه المكونات بقواعد البيانات؟ نعم نستطيع ولنأخذ مثالا 
على ذلك: 


١-لنأخذ‏ المثال السابق الذي قمنا بالتطبيق عليه والموجود بالمرفق رقم ..٠٥١‏ 


-نفتح النموذج (الفورم) ونضيف الأداة ٥×80×‏ ۴41 كه" من نافذة الأدوات» نضيف 
ا ر ن کن ا و ر ع 
asked €×80×‏ في الفصل السادس من هذا الكتاب بحيث أنها نفس صندوق النص 
لكنها مناسبة أكثر لتنظيم المّدخلات في صندوق النص» بحيث تسمح للإدخال بطريقة معينة 
بحسب الطلب» حيث تسمج لنا الخاصية ئة" بتعديل صيغة المدخلات» فبإمكان 
المدخلات أن تكون أرقام هواتف أو رقم عشري أو عملة أو غيرهاء سوف نستخدم هذه 
الأداة لعرض أرقام الهاتف بشكل مميز» ففي قاعدة البيانات توجد أرقام هواتف الطلاب 
بدون مسافات أو أقواس لتسهيل عملية قراءة أرقام الهواتف لكننا سنضيف المسافات 
والأقواس في الأداة ×۴×80 ۴4۲ )كه ملاحظة: أرقام الهواتف المخزونة في قاعدة 
البيانات أرقام ليست لهواتف حقيقيةء وإنما هي لهواتف مفترضة في أمريكا الشمالية وعليه 


فطريقة عرض الأرقان في صندوق النص ستكون تبعا للطريقة التي تعرض فيها أرقام 
الهواتف في أمريكا الشمالية. 


٣-في‏ مربع النص ×4۲۴×80 ۴ه" ننقر فوق السهم الصغير أعلى يمين مربع اللص» 
نختار )5 56 ستظهر لنا نافذة تظهر لنا العديد من الإعدادات المقترحة والأكثر 
استخدlمÎ«‏ iختlر‏ مlqi .Phone Number‏ (طبعا نستطيع إعدادات خاصة حسب طبيعة 
المدخلات أو لأرقام الهواتف في بلداننا في الخانة الأخيرة 50۳لا))» كما وضحنا 
سيضيف الإعدادات الخاصة بأمريكا الشمالية. 


٤‏ نضيف ليبل وفي خاصية 1٥×‏ نكتب »۴۸0٥١٥€‏ سيكون النموذج كما في هذا الصورة: 
E SES‏ 


En 4 |0 cok) FI | xX 


Phone e 


الآن سنقوم بربط الحقل ۴٣٥١8١1586۲‏ الموجودة في مجموعة البيانات 
tudentsDataSet‏ بمربع النص ۴×80×1 ask e4۲‏ وهذه العملية سهلة جداً في 
فيجوال بيسك Y.0‏ و ۸ حيٿ نذهب إلى نافذة مصادر البيانات ونختار الحقل 
PhoneNumber‏ ونسحبه بالماوس إلى داخل النموذج إلى داخل مربع النص. 


٥-نستعرض‏ نافذة مصادر البیانات» وسحب الحقل €۲ ۸N u5‏ عہہ۴۸ إلى داخل صندوق 
النص ۴×80×1١۴4)ءه.‏ وعند إضافة حقل إلى كائن على النموذج بهذه الطريقة يقوم 
الفيجوال بيسك بتعديل الخاصية ١١1ل١81هه0‏ التابعة للكائن ففي صندوق النص 
asked ext B1‏ قام الفيجوال بيسك بتعديل الخاصية 0a6 ١d1 ٣١‏ ليقوم بربط 


صندوق النص بمجمو عة البيانات وبالحقل ۴۸٥0٣٥۴١11١56۲‏ انظر نافذة الخصائص 
لصندوق النص و الخاصية ٣4‏ 1لData68¡1۸:‏ 


Properties 


MaskedTexEBox1 5yYstem, Windows, Forms, Masket 


E EZ 


Applicationsettings)} 3 
SÎ DataBindings) 5 
Advanced) I 

Tag none} 

Text InstructorsBindingSource 
(Narne)} MaskedTextBox1 
ûrressibleDescription 
AccessiblelJarme 
ArzrcessibleR ole Default 
Ala Tiran Eales 9 

Sek Mask... 
{DataBindings]} 
The data bindings Far the contral, 
File 


-نقوم الآن بتنفيذ البرنامج»ء ثم قم بالتنقل بين السجلات ستلاحظ أن البرنامج ينتقل بين 
السجلات في الحقلين في نفس الوقت. 


۷-المثال في المرفق رقم ..٥١‏ 

قبل أن ننتقل للفصل التاسع عشر لنستعرض قواعد البيانات على شكل جدول 4١6۲ء‏ سنتعلم بعض 
التقنيات في التعامل مع قواعد البيانات بواسطة أوامر ال ا5 وكذلك ۸Q‏ |اء من أجل فلترة 
البيانات. 


خطوة للأمام: أوامر ال اه5 و ۱Q‏ |[ لفلترة البيانات 

تعلمنا خلال هذا الفصل كيف نقوم بربط قاعدة بيانات بالكائنات على النموذج وكيف نقوم 
باستعراض محتويات قاعدة البيانات» عن طريق مجمو عة البيانات ع25 0aء†Studenء‏ في 
أكثر الأحيان سنحتاج لاستخلاص بيانات معينة من قواعد البيانات» ففي قاعدة البيانات التي تحتوي 
على أكثر من مائة ألف سجل سنحتاج لاستخدام أوامر ال اه5 لفلترة البيانات» فإذا كان لدينا 


قاعدة بيانات تحتوي على بيانات العملاء عناوينهم وأرقام الهواتف لأكثر من خمسين ألف عميل 
وأردنا فقط العملاء المتواجدين في العاصمة أو المتواجدين في المدينة الساحلية الفلانيةء ماذا إذا 
أردنا قائمة بالعملاء الذين تبدأً أرقام هواتفهم بالرقم ۸ (لأن هذا الرقم يتبع الخدمات المجانية)ء ماذا 
وماذاء كل هذه الإجابات ستجدها مع أوامر ال ا50 أشهر أوامر ال ا5 هو الأمر ح٤عام؟‏ 
الشهير» باستخدام مجموعة من الأوامر يقوم المبرمج بكتابة الكود البرمجي المناسب للبحث عن 
معلومة معينة في قاعدة البيانات. 


في نسخ فيجوال بيسك الأقدم من ۲٠٠۸‏ كان هناك دعم لأوامر ال ا50 نفس الميزة موجودة في 
فيجوال بيسك ۲٠٠۸‏ مع إضافة جديدة وهي @ |1 والتي تسمح للمبرمج بكتابة أوامر على هيئة 
ا5 ضمن أكواد الفيجوال بيسك» وبالرغم من سهولة ||@Q‏ لكنها عصيه على الاحتراف ولن 
تحترفها حتى تحترف ا@5» في المثال التالي سنستخدم ما یسمی ب Bui) de۴۲‏ ۷٣ں‏ أو (بتاء 
الأوامر (اعتقد أن الترجمة غير مناسبة)) وتستخدم هذه الأداة لكتابة أوامر للتعامل مع قواعد 
البيانات» هذه الأداة تستخدم أوامر مشابهه لل ا50. سنستخدم Bui] e۲‏ ۷ا Que‏ مع نفس المثال 
السابق وستقوم هذه الأداة بترتيب البيانات بشكل ألفبائي: 


.Inst ٣u c)0٣٦۴×)850× على النموذج ننقر على صندوق النص‎ -١ 


من قائمة ه0 نختار Q٣۷‏ ۸44 سيقوم الفيجوال بيسك بفتح هذه النافذة: 
Search Criteria Builder‏ 


Lhoose an existing query or enter a new query below, û4 Tool5trip will be added to 
the Form to run the query, To edit an existing query or use stored procedures JS5B 
the Configure command on the TableAdapter in the GLata5et Designer, 


Select data source table: 


Select a parameterized query to load data: 
(®) Hew query name! FINNEY 
7 Existing query name: 


Qiery Text: 
SELECT Instructor, PhoneNumber FROM Instructors 


Sample: SELEZT ColumnNamel, Columnllamea FROIN 
Tableame WHERE Columnhlamel = ? REI 


فالاأداة Que BU) e ٣‏ هي عبارة عن بناء أوامر مرئي على هيئة ا50 انظر الكود 
المكتوب في ٣٠×‏ 6۲۷ا وهو الكود الذي يقوم البرنامج بتطبيقه حالياًء إذا كان لدينا 
اک من کون ینک الد مک ب اما ها : 


۳-قم بکتابة ۲u C†0٣5‏ †nsاSort‏ مقابل NeW Query Name‏ هذا اسم الأمر ونستطیع 
الاستفادة من الاسم في مرحلة الكود بإسناد الأمر إلى حدث يتبع كائن معين. 


٤-الآن‏ ننقر على الزر ١ع‏ )۷ا6 ۷٣16ا‏ ليفتح لنا نافذة جديدةء في النافذة الجديدة تستطيع 
كتابة أوامر ال اه5 أو اختيارها بشكل مرئي في النافذة وسيقوم الفيجوال بيسك بكتابة 


الأوامر. 


-٥‏ لاحظ أن كل سطر في الجدول يمثل حقل من حقول قاعدة البيانات: 


Query Builder 


EB Instructors E 


* اا‎ lun 


l#|PhaneRurmber 
|_|Fxtension 


Lolumn Table Gutput | Sort T¥pE Sort Crder Filter 4 | 
Instructor Instructors i 
PhoneNurnber Instructors Ascending 
ا‎ Descendirıg ات‎ 
7 | Unsorted ¥ 


SELELT Instructor, PhoneNurber 
FROM Instructors 


نذهب الآن للعمود ۲۷۵ 50۲ ونضغط مقابل ٤0۲‏ ۸5۲۷| ليفتح لنا قائمة بالخيارات 
الممكنة لترتيب الحقل» الخيارات هي ٣١‏ آ١١‏ ٥٤ء۸‏ تصاعدي و ٣4‏ آل" ٥ء0‏ تنازلي و 
۵ا بدون ترتیب» نختار الترتيب التصاعدي ۸5٥۵۸۵1۸4‏ سنلاحظ بأن 
الفیجوال بيسك قام بإضافة الأمر 0RDER B۷ |٣5۲ C0۲‏ إلى خانة الأوامر بالأسفل 


لتصبح كما في هذه الصورة: 


Query Builder 


E Instructors Eî 


Instructor 
PhanefNurnber 
Extension 


Zalumn Table Gutput | Sort Type Sort Order 
Instructor Instructors Ascending ٤ 
PhaoneNumber Instructors 
"| 
1 | 


Instructor, PhaneNumber 
Instructors 
RDER BY Instructor 


Execute Query 


نضغط )0. 


٦-ثم‏ اضغط )0 لإغلاق النافذة الأولىء الأمر الذي استخدمناه الآن لا يقوم بفلترة البيانات 
وإنما يقوم بترتيب البيانات» سيقوم الفيجوال بيسك بإضافة زر جديد على النموذج باسم 
_S0 ttc 6‏ وسيكون النموذج كما في هذا الشكل: 


El Formî 6K 
i: 4 |0 o | F**K 


2 SartInskructars_ 


المكون الجديد 


Phone E ET 


كما سيضيف الفيجوال بيسك مكون ۲0015۲١‏ جديد على النموذج وفي خانة المكونات. 


۷ نقوم بتنفیذ البرنامج» تم الضغط على الزر ٣0۲۶‏ 50۲1۸5۲۷_ ليقوم البرنامج بترتیب 
السجلات بشكل ألفبائي حيث سيبداً بالسجل ۸44 8۲١,‏ لإنه الأول في حالة الترتيب 
الألفبائي. 

۸-نسخة من التطبيق في المرفق ٠٠١١‏ الآن قمنا بتطبيق أمر واحد من أوامر ال اه5 وهو 
ترتيب السجلات بشكل ألفبائي تصاعدياء هناك العديد من أوامر ال ا50 التي تفيدنا في 
عملية فلترة قواعد البيانات» تستطيع البحث أو الاستفادة من الكتب المتخصصة» هنا بدأنا 


في أول الطريق والبقية عليك. 


خلاصة الفصل الثامن عشر 


من اجل أن قم بالتالي 
تتواصل مع قاعدة من قائمة 024 نختار Add New Data Source‏ تم قم بتحدید قاعدۃ 
البيانات لاناك ق اض مها 


إنشاء مجموعة البيانات من النافذة ل Pata Source Configuration WiZ2‏ نستطیع أن نختار 


dataset‏ اسم لمجموعة البيانات ا#ءهاهل ثم اختيار الجداول المراد اختيارها من 


اختيار حقول معينة 
لعرضها على النموذج 


للانتقال بين السجلات 


عرض البيانات على 
النموذج بهيئات معينة 
فلترة أو ترتيب البيانات 


dataset 


OEE O a Î REKE 
تسمى مجموعة البيانات ا#ءه†هل)» ليس بالضرورة أن نختار كل الجداول‎ 


وكل الحقول وإنما ما نحتاجه فقط سيسمى مجمو عة البيانات .أع٥كهtمd‏ 


بعد التوصيل مع قاعدة البيانات واختيار ال ا#كهأهل نذهب إلى نافذة 
مصادر البيانات بجانب مستكشف المشروع ثم نختار الحقول الهدف ونضيفها 
إلى النموذج. 

في فيجوال بيسك ٠٠٠١‏ و ۲٠٠۸‏ تتم عملية إضافة المستعرض للنموذج 
أوتوماتيكيا مباشرة بعد إضافة كائن يرتبط مع حقل من حقول البيانات من 
النافذة مصادر البيانات ۲٤6١‏ ا50 هه0ء ونستطيع التعديل على أزرار 
المستعرض بالتعديل على الخاصية ك" | في الكائن 


.InstructorBindingNavigator 

نستخدم الكائن ۴١1 ٥۴×60×‏ كه" لعرض البيانات عليه» ونعدل في 
الخاصية )كة١‏ للكائن ليعرض البيانات على الهيئة التي نريد. 

نستخدم أوامر ال اه5 لفلترة البيانات« ونستخدم اJأداö Query Builder‏ 
لتساعدنا على كتابة الأوامرء بعد التعامل مع الأداة ٣۷ BU)‏ بشكل 
احترافي تستطيع الانتقال إلى ١Q‏ |]. 


الفصل التاسع عشر: استعراض البيانات على شكل جدول بواسطة الكائن Wء 02٤46۲4۷1‏ 


استخدام كائن الجدول Wء ۲١4۷1‏ 6هtه0‏ لعرض سجلات قاعدة البيانات 


الكائن ٥W‏ 0846۲1۵۷1 هو عبارة عن كائن تتم إضافته إلى النموذج ليقوم بعرض جدول كامل 
من قاعدة البيانات» قد يحتوي هذا الجدول على أكثر من مائة سجل» طريقة العرض هي طريقة 
الجدول بحيث يعرض الحقول في أعمدة والسجلات في أسطرء أقرب مثال لهذا الجدول هو ملفات 
الأكسل أو الأكسس فهي تتشابه مع هذا الكائن إلى حد كبير» الكائن W‏ 4۷1 6ه اه0 في فيجوال 
بيسك ۲٠٠۸‏ و ۲٠٠١‏ يختلف عن نفس الكائن في النسخ السابقة من الفيجوال بيسك» ذلك بأن 
الفرق هو إمكانية عرض البيانات على ال W‏ ۲۵۷1 6هه0 مباشرة باستخدام مجموعة البيانات 
tase‏ يتم ربط البيانات مع الكائن بو اسطة الخاصية «BindingSource‏ ا هذا بعد 
عملية ربط البيانات بو اسطة النافذة إ Pata Source Con figura t10۸ W2‏ واستخدام نافذة 
مصادر البيانات التي تعملنا كيف نستخدمهم في الفصل الثامن عشر» بعد عملية الربط مع البيانات 
يقوم الفيجوال بيسك بتعبئة الجدول W٥6۲14۷1هه0‏ مباشرة بعد تحميل النموذج. 
متال على التعامل مع ûlÛdlئj DataGridView‏ 
١-نقوم‏ بإنشاء تطبيق جديد بام .My DataGridView Sample‏ 
۲-من قائمة 0ata‏ نختار Add New Data Source‏ (قد سبق لنا الربط مع قاعدة 
البيانات في الفصل الثامن عشر لكننا هنا سنختار حقول أكثر) نختار #كهطه†ه0ء طبعاً 
سيسمح لنا باختيار قاعدة البيانات» أما إذا قد قمت بتطبيق المثال في الفصل الثامن عشر 
فسيقوم الفيجوال بيسك باختيار قاعدة البيانات ال 51۷4٥١٤."‏ بشكل أوتوماتيكي كما في 
هذه الصورة: 


Data Source Configuration Wizard 


Choose Your Data Connection 
e ا‎ 


Yhich data connection should your application use to connect to the database? 


Students. mdb Mew Lonnection... 


Loannecktion string‏ جا 


إذا لم يقم الفيجوال بيسك باختيار قاعدة البيانات التي تريدهاء قم بالضغط على ١۴W‏ 
Connecti‏ تم قم باختيار قاعدة البيانات 51۷4٥۸١5."‏ الموجودة في المرفق رقم 
٠٠ ١‏ واتبع تفاصيل الربط مع قاعدة البيانات المتبعة في الفصل الثامن عشر» قم بالضغط 
على التالي ثم التالي. 


۳-الآن لديك خيارات لاختيار الجداول والحقول لإضافتها لمجموعة البيانات اع#كهاهل» 
تستطيع اختيار كل الجداول والحقول أو اختيار ما تحتاجه فقط. 


٤‏ - نضغط على (+) بجانب الجداول؟)طة٠‏ سنجد أن هناك سبعة جداول والثامن يسمى 
temsا »SWitchboard‏ نضغط علی المربع الفارغ بجانب ٦۹۵1٥65‏ لنقوم باختیار کل 
الجداول في قاعدة البيانات لإن هدفنا في هذا المثال استعراض قوة الكائن 
t6۷‏ في عرض البيانات» على كل ستكون نافذة الاختيار كما في هذه 
الصورة: 


Data Source Configuration Wizard 


lb Choose Your Database Objects 
| 


which database objects do you want in your dataset? 


RULE Tables | 
Hl E Assignments 
4-E lasses 
aA-FE Departments 
El ME Instructors 
A-YEE FREesulks 
HY] I students 
A I students And Classes 

E Switchboard Ikerns 


lb igs 


DataSet name: 


StudentsDataSet 


: | Finish Lanrel 
نضغط ۶۸ا۴1 لإکمال عملية الاختيار. سيقوم الفيجوال بيسك بإنشاء مجمو عة البيانات‎ 
.StudentsDataSet 


٥-نفتح‏ نافذة مصادر البيانات 501۷۲٣١6١‏ ه04 بجانب مستكشف المشروع» ستحتوي نافذة 
مصادر البيانات على كل الجداول الموجودة في مجمو عة البيانات StudentsDataSet‏ 
كما في الشكل التالي: 


Dala Sources 

I E 

E |aã] studentspata5et 
Hl Assignments 
Hl lasses 

3 ا‎ Gepartments 
El Instructors 
E2] 8 Results 

Hl students 


J students And Classes 
Hl Switchboard Items 


[E solution Explorer و‎ Data Sources 


٦-في‏ الفصل الثامن عشر تعلمنا كيفية إضافة حقل واحد من جدول من قاعدة البيانات إلى 
كائن معين على النموذج أما الآن سنتعلم كيفية إضافة جدول كامل إلى الكائن 
8t6 r|NdyieW‏ لنقم الآن بتكبير النموذج ليشمل معظم الشاشة»ء وفي نافذة مصادر 
البيانات نختار الجدول |١5۲۷ ٤0۲١‏ ونختار السهم الصغير بجانبه لترى قائمة من 
الكائنات التي تستطيع أن ترتبط مع الجدول كما في هذه الصورة: 


gl |a@] studentsData5et 
E Assignments 
j lase 

HH Departments 
Instructors 
ا‎ DataGridviem 


2 FZ] Details 


| @ [none] 


A A A A A A) 


LUSEOMiZE,,. 


Eq solution Explorer | 1 Data Sourtes 
الخيارات المتوفرة لعرض جدول من قاعدة البيانات هي:‎ 
علی شکل جدول‎ 0۸6۲۵۷1 ٥W لعرض الجدول بداخل الكائن‎ DataGridView 
يحتوي على صفوف و أعمدة.‎ 
ئ‰) عط ويستخدم لعرض الجدول على شكل مفصل على النموذج حيث يقوم بعرض‎ 
صندوق نصي لكل حقل وبجانبه ليبل تعريفي بصندوق النص.‎ 
الخيار الثالث يمنع ربط هذا الجدول مع أية كائن» إذا اخترنا هذا الخيار فلن يمكننا‎ ٥ 
ربط الجدول مع الكائنات.‎ 
یمکننا من اختيار كائن جديد غير موجود في الخيارات ولابد أن يتقبل هذا‎ 0M 


الكائن عرض محتويات جدول بأكمله. 


۷-ننقر على ۲|۵۷16W‏ 036 ونقوم بإضافتها إلى أعلى يمين النموذج» سيقوم الفيجوال 
بıسك‏ ڊإضlة‏ nllكونlٽت StudentsDataSet‏ ڪ g InstructorsBindingSource‏ 
InstructorsTableAdapter‏ ڪ gy TableAdapterManager‏ 
InstructorsDataGridView jill JS ş InstructorsBindingNavigator‏ 


مباشرة إلى التطبيق وسيكون التطبيق كما في هذه الصورة: 


My DalakoridView Sample «- Micfosoll Yisiüial Sludia 


Fle Edi Yew Froject Êuld Debug Ûata Took Test Window Heb 


Le A ALN Ba RLS SL = e x 


Hj Departmants 

zl jÎ Instructors ا‎ 

Hl (j Fesuks 

E r Shudents 

# Fl Students Armd asses 
E HÎ Sutthbaard kema 


[Salton Explorer | g31P3ta Sources | 


زلا تتا ست ا 


InstructarsDataGridyiew System, indewgs, Farm ” 


la RudentsDskaSet Hy InekrurttarsEindngSource TE InetructarsTabhleûdapter [Î Tableidapter Manager ج‎ 


۸-ستلاحظ عدم وجود بيانات على ال 046۲١١‏ في هذه اللحظة وسيقوم البرنامج بتحميل 
البيانات بعد تنفيذه» اذهب الآن إلى السهم الصغير أعلى يمين ال 046٣١‏ ونضغط 
عليه لتظهر لنا النافذة التالية: 


DataGrid¥iew Tasks 


Lhonse Data Source | InstructorsBindingSDUFCE 


Edit Columns... 
Add LZolurmn... 


ک“ 


Enable Adding 


[¥] Enable Editing 
[¥] Enable Deleting 


Enable LZolumn Reordering 


Dack in parent container 
Add QuBfY... 


Preview Data... 


حيٿ تسمح بتعديل خيارات ال 06۲١‏ بالسماح للمستخدم بالإضافة والتعديل والحذف 


على التوالي» كذلك بعض الخيارات لل لأ 6هه0 مثل خيار 00٤)‏ وهو الالتصاق 
بجانبين من النموذج حتى إذا قام المستخدم بتكبير النموذج تلصق ال 0a6‏ 
بالجانبين اليمين والأعلى أو اليسار والأعلى حسب اتجاه النموذج» يمكننا كذلك من 
استعراض البيانات في مرحلة تصميم البرنامج وبدون الحاجة لتنفيذ البرنامج وذلك من 
الخيار الأخير ه02 Wه۴۲۴۷1.‏ نقوم بالضغط على الخيار الأخير لتظهر لنا نافذة جديدة 
نختار فيها ۴۲۴۷18۷ لتقوم بعرض البيانات كما في هذه الصورة: 


Preview Data 


Select an object to preview: Parameters: 


StudentsDataset. Instructors. Fill, aeEData j ¥ Name Type Yalue 


Ma parameters are defined on the selected object, 


Preview 


Results: 

InsktructorlD Instructor Fhoneumber Extension 
Delamarco, Stefan 3105551234 

McKay, TYONNE EEE E 

Barr, ûdam 3105554321 

Wilson, Dan 3105550088 

Burke, Brian 3105554567 

iviatk, Lori AUSF? 

Dyck, Shelley 3805551111 

Halvorson, Michael  ZU6S554444 


2 
3 
4۹ 
5 
Ê 
5 
3 
3 


Hal¥arson, Kim U1Z234567930 


Lolmns! 4__ Rows: 4 


ستلاحظ العمود الرابع تحت اسم ٣510۸‏ ع×Eع‏ فارغ ولا يحتوي على بيانات وقد يسبب 
الحيرة عند مستخدم البيانات لذلك نقوم بحذفه في الخطوة التالية. 


۹-نقوم بإغلاق النافذة السابقة ونذهب إلى النافذة التي قبلها لنختار منھا Edit C۲0) ™0٩5‏ 
أتظهر لنا هذه النافذة الجديدة: 


Edit Columns 


Selected Lolurmns: Bound Column Properties 
InstructorID | ۴ [ | E 
EEE MaxInputLerıgth 32767 
PhoneNumber Readînly False 
Extension Resizable True 
Sartade Aıytomakic 
El Data 
GataProperkyflame InstructorID 
J Design 
lame) DatatridYiamTextBoxZalu 
LolumnTy pe DatafridYiewTextBaxEoly 


{Name} 
Indicates the name used in code to identify the 


من هذہ النافذۃ نختار ۸۶10۸ ع)×E‏ ثم نضغط علی الزر ۸۵٣۳0۷٥‏ ثم نضغط على الزر 


)0» بعد التعديل سيكون النموذج كما في هذه الصورة: 
Form [£ (SIX!‏ 


PhaneNumber | Instructor | InstructorID 


٠-٠‏ تقوم الآن بتنفيذ البرنامج» مباشرة بعد تنفيذ البرنامج سيقوم البرنامج بتعبئة البيانات 
في ال كأ 6هاهط لتظهر كما في الصورة التالية: 
Fom1 E EIS)‏ 
ساسا اا کیا 


Phoneflumber | #4 Instructor InstructorID 
TI+ooETT Barr, Adarn 7 
TI +O TY Burke, Brian 
TI*ocolTTa | Delamarco, Stefan 
Team 1 1 Oyck, Shelley 1 

+ ITT EOWA + Halvorson, Kim 
Te lmoZZÃ | Halvorson, Michael 
TI +a MLEaY, TYONnnNe 
+ a wiatt, Lori 


ù 
1 
4 
1 
1 
1 
4 
2 


TI ++ + Wilson, Dan 


كيف يقوم البرنامج بفعل ذلك بعد تنفيذ البرنامج» نراجع منطقة الكود عند الحدث تحميل 

النموذج ۴١١۲۳ 1_10۵١‏ لنرى هذا الكود وهو الذي يقوم بتعبئة البيانات: 

Me.InstructorsTableAdapter.Fill(Me.StudentsDataSet.Instructors) 
هذا السطر البرمجي قام الفيجوال بيسك بإضافته بشكل أوتوماتكي للكود عندما قمت بسحب الجدول‎ 
إلى النموذج.‎ ۲N 6 

-١١‏ بعد تنفيذ برنامجك قد تلاحظ فرق بسيط بين صورة نافذة برنامجي وصورة نافذة 
برنامجك حيث الجدول عندي من اليمين إلى اليسار وكذلك الأرقام باللغة العربية وهذا يعود 
إلى الخیار ٤۴ا-٥٤-٤۸واR‏ من خيارات النموذج حيث قمت بضبطه على ع۵د٣۲»‏ هذا 
الخيار يقوم بتحويل النموذج ومحتوياته من اليمين إلى اليسار ليلاءم المستخدم العربي. 


۲- بعد عرض البيانات تستطيع أن تذهب بالماوس إلى المكان الفاصل بين العمود 
والذي يليه لتقوم بتكبير عمود معين لإن خيار السماح بالتكبير 
A)0W€serToResizeColumns‏ مضبوط علی ٥ا٣۲‏ وتستطیع أن تمنع المستخدم 
من ذلك بضبط الخيار على ع٥ءاه۴»‏ تستطيع كذلك ترتيب محتويات عمود معين ضا غفا 
أو تنازليا بالنقر على اسم العمود في الأعلى» فبالضغط على العمود P۸0٣ N U5۲‏ في 
الأعلى يقوم البرنامج بترتيب أرقام الهواتف بشكل تصاعدي من الأصغر إلى الأكبر كما 
في هذه الصورة: 
Form1 E (EK)‏ 

زل ١‏ واد 4ا × ل 


x Phoneflurnber Instructor  InstructorID 
+ ITTEDWNA + Halyorson, Kirn 4q 
Telco ÃZÃ | Halvorson, Michael أ‎ 

T+ aco wiatE, Lori 

T1 ++ + 1 wilson, Dan 

Ti+ lTTê | Delamarrco, Stefan 

TI +aooETT | Earr, Adarn 

TI +a Burke, Brian 


TI +a MLZEay, YoNnnE 


4 
ے 
1 
آ 
3 
r‏ 
4 


T+ 11 Gyck, Shelley 


انظر المثلث الصغير في العمود 58۲ u۳١ع٣هم۴‏ والذي يبين لنا أن الترتيب في الجدول 
على أساس هذا العمود وبشكل تصاعدي» إذا قمنا بالنقر مرة أخرى على نفس العمود سيقوم 
بعكس الترتيب إلى الترتيب التنازلي» جرب أن تنقر على بقية الأعمدة أكثر من مرة لتشاهد 
كيف تتم عملية ترتيب الجدول بناءأ على العمود الذي تقوم بنقره تصاعديا أو تنازليا وكيف 


لهذه الميزة أن تسهل على المستخدم في وقت استعراض الجداول التي تحتوي على البيانات 
الكثيرة. بعد تجربة تكبير الأعمدة وترتيب محتوياتها قم الآن بإغلاق البرنامج. 
تغيير شكل خلايا ائجدوJ DataGrid Formatting‏ 
لتغییر شكل خلايا ال ل61 Data‏ سواءاً مساحة الخلايا أو لون الخلفية في الخلايا وغيرها من 
٣-نذهب‏ إلى الخاصية ك١" K0‏ التابعة لل ل١۲‏ 6هاة0 ونضغط على الزر ... ليفتح لنا 
نافذة من خلالها نقوم بالتعديلات التي نريدها كما يلي. 


٣‏ قي هذه النافذة: 


Edît Columns 


selected Lolurmns: Bound Zoalurmn Properties 
A =| A 
InstrurctorID f تھ‎ | 


Instructor MaxInputLength 3277 


Readînly False 
Resizable True 
Sortade Automatic 
El pata 
GataProperkyflame InstructorIp 
El Gpesign 
Mame) DataaridYiewTextBoxZalu 
LalurmnTy¥pEe DatataridYiewTextBoxColy Ww 


PhoneNumber 


{Name} 
Indicates the name used in code to identify the 


Add... RHermayEe abject. 
تذكر لقد استخدمنا هذه النافذة لحذف العمود الفار غ ناقا الآن سنقوم بالتعديلات المطلوبة‎ 
على الخلاياء العمود الذي نقوم بالتعديل عليه هو العمود المظلل على يسار النافذة فنبداً‎ 
وإذا اردنا تعدیل عمود آخر نختارہ من یسار‎ |٣۲۲۷ ٤٤0۲۱0 بالتعدیل لیقوم بتعدیل العمود‎ 


النافذةء نبدأً الآن مع العمود |١5۲۷ ٤†0۲10‏ نضبط الخاصية W۸‏ (عرض العمود) 
على ۷١‏ وتقاس المسافة بالنقطة ۴×٥)‏ تم نضغط )0. 


٤-نعود‏ لنافذة الخصائص ope rie‏ ثPr‏ و,ونزضبط llخاصية ColumnHeadersVisible‏ 
على عكاه۴» هذه الخاصية ستحذف أسماء الأعمدة من أعلى الجدول لأ 6ه†ه0. 


٥-نذهب‏ إلى الخاصية AternatinRowsDefau(tCe|(Sty|€‏ ونضغط علی الزر ...۰ 
هذه الخاصية تتحكم في لون الصفوف عند التنقل من صف إلى آخرء تغيير هذه الخاصية 
يقوم بتغيير لون الصفوف إلى لونين أحدهما أبيض والآخر اللون الذي تختاره أنت» هذا 
الد د 5ا ك اا ر و حك تل حا ف ا ات 

٦-نختار‏ الخاصية 8٤۸٣ 0)0١‏ ونختار منها 0۳ءلا ومنها نختار اللون الأصفر الفاتح» 
ستكون النافذة كما في هذا الشكل: 


LellStyle Builder 


El Appearance 
BackCalar [| 255; 255; 192 
Font none) 
Foretolor 
selectionBackZolar 
SelectionForeZolor 
El Behay¥ior 
Format 
El Gata 
EE: 
El Layout 
Alignment 
Padding 
w'rapode 


Prewieyy 

This preview shows properties From inherited ZellStyles (Table, Column, Row} 
Mormal: Selected: 
HEE 


نضغط على )0 للمو افقة. 


۷-الآن عند تنفيذ البرنامج سنرى صفوف البيانات بلونين أحدهما أبيض والآخر أصفر فاتح» 
EE Form - 8K)‏ 
xX [A 4 o9 1 El:‏ 
ceo] oelmareo, efor f‏ 


TI +a Mckay, TYONNE 


Barr, Adam 


wilson, Dan 
ا‎ 


Burke, Brian 

| Teeoa] Oval, lor 
Tem 1 111 Gyck, Shelley 

T+ lamaziZZ | Halvorson, Michael 


+ TTI NA+ Halyarsan, Kim | 


۸ تستطيع الغوص في نافذة الخصائص التابعة لل 046۲١4‏ لتجد خصائص اکرش 
ممتعه» ملاحظة: التطبيق متوفر في المرفق رقم O۸‏ *. 
التعامل قواعد البيانات الكبيرة: إضافة ل١أ6‏ هه ثانية وكذلك مستعرض إضافي 


عند التعامل مع قواعد البيانات الكبيرة التي تحتوي على أكثر من جدول» قد نحتاج إلى إضافة 
DataGrid‏ ا ى للنموذج وإضافة مستعرض جديد لل «0a a64‏ إضافة DataGrid —lI‏ 
من مصادر البيانات سهل» الإضافة الجيدة هنا هي إضافة مستعرض جديد وتعديل الخاصية 
Binin Source‏ لعرض البیانات» لنأخذ مثالا على ذلك: 

١-بالاستفادة‏ من التطبيق في المثال السابق» نقوم بإضافة الجدول كعءءها٣‏ (من نافذة مصادر 


البيانات) إلى النموذج (الفورم)ء سيقوم الفيجوال بيسك بإضافة 04٤6١١‏ جديدة إلى 
النموذج تحٽ .ClassesDataGridVieW pul‏ 


1-iضbiط «Edit Columns رlaخi, ClassesDataGridView ye Right-Click‏ 
نقوم باختيار الأعمدة llتlلıة ClassID, SectionNumber, Term, Units, Year,‏ 
Location, Notes‏ ونختار ۸۴۳0۷۵ لکل عمود علی حدہ بعد ذلك نضغط )۰0 قمنا 
بإلغاء الأعمدة المذكورة لإن النموذج لا يتسع لها. 

۳-نقوم بتعديل مساحة النموذج ليتسع للجدولين وتكون جميع الأعمدة فيهما واضحة وغير 
مخفية» کما في هذه الصورة: 


My DalaGridView Sample - Microsoft Yisual Studio EKE 


Tools Test #ndow Hep 


Debug Data Fgrmuk 


fle Edt ew froject uld 


# 


Atoll Fase 


نلاحظ أن الفيجوال بيسك قد أضاف مكونين جديد في الأسفل وهما 
ClassesBindingSource‏ و leAdapterاab r‏ ssesهاC»‏ هذین المکونین هما عبارة 
عن وسطاء لنقل البيانات بين الجدول W٥0۷1ل6۲1هاa(كعءكها€‏ وبين قاعدة البيانات. 


٤‏ -نقوم الآن بإضافة مستعرض تاني للبيانات في الجدول Classes 0a † a61۷1 Ww‏ لإن 
المستعرض الأول AV20۲‏ nstructorsBindingNا‏ یقوم فقط باستعراض البیانات 
في الجدول (a26۲4 eW‏ tructorsSءnاء‏ نذهب إلى صندوق الأدوات وتحت التبویب 
2ط ننقر نقرتين على الأداة Binding NV‏ يقوم الفيجوال بيسك بإضافة مكون 
جديد أسفل النموذج في شريط المكونات باسم 81٣1٣14۷1440۲1‏ ويضيف شريط 
استعراض للبيانات في النموذج أسفل الشريط السابق. 


٥-من‏ نافدذة الخصائص نقوم بتغيير الخاصية Name‏ للشريط الجديد إلى 
ssesBindingNavigatorهاC»‏ حتى تسهل علينا مراجعة الكود. 


٦‏ نقوم بضبط الخاصية ۲°€ 501^ 1¬ Bi‏ على .CtassesBindin Source‏ سیقدم لنا 
الفيجوال بيسك خیارین نختار منھما din5 0u ۲٣€‏ sses8inهاc»‏ الآن تم الربط بین 
شريط استعراض البيانات الثاني والجدول الثاني Wء‏ 14۷1 .ClassesData6‏ 


۷-نقوم بحفظ التطبيق ثم تنفيذه» وبعد تنفيذ برنامجنا سنشاهد تطبيق يحتوي على جدولين 


#*  DaysûndTimes Prof Department className TletnolTTE | Delamarea, Sbafa 

MWE 1:00 | Wilson, Petar Egle raal Works Tease Pekay, vonê | 
TR ê:0û | Mackenzle, Wendy Computer šrlence ETT ` TieeoeTl) Bar, Adam) FTF 

PF 11:00 | Oeil, Mary | Gym | ...Renalssance His | TIeoooe +A Wilson, Dan | 

HWE 2:00 | Halvorson, Michael) History |.,.Reformation Hist Tico | Burke, Brian | 
F300 | Halvorson, kim | Industrial Design | Pattern Drafting Tee Oviatt, loi) %4 
PF 9: Êdison, Lary  amputer Science | Computer Graphics | ecaollil ` brrky Sheky) ¥ 

TRSN0O __Delnere, Marie History |..Early Medevall Fr TooozEZE Halvorson, Michael 


HWF 1:00 | Halvorson, Michael History | ...Tudorf Stuart His | + ITTEOTWA Halvarson, Kim 
WF 10:00 | Halvorson, Kim Industrial Design Quilting 1 ٔڂۉڃŠo‎ o | 


TR 1:0û Halvorson, Kîm | Îrdiustrial besigrı Quking ÎÎ 


۸- جرب الآن التنقل بين البيانات باستخدام المستعرضين» يا سلام يقوم البرنامج بالتنقل بين 
البيانات» استخدم أحد المستعرضين في الذهاب إلى حقل معين من البيانات ثم استخدم الآخر 


في الذهاب غلى حقل آخر» رائع جداء بالطبع يعمل المستعرضين بشكل مستقل عن 
بعضهما البعض» هذا سيعتبر مفيد إذا كان لدينا جدولين يحتويان على بيانات كثيرة ونذريد 
مقارنتهما يدويا. 


۹-قم الآن بإغلاق التطبيق وتذكر بأنه توجد نسخة من التطبيق في المرفق رقم ..٥۹‏ 
خطوة إضافية للأمام: الحفظ في قاعدة البيانات 


كما وضحنا سابقاً بأن مجموعة البيانات ٤5#ة٤ة0‏ لا تعبر عن قاعدة البيانات الأصلية بشكل 
اشر و إنما تقوم بأخة الائات من قاغدة البانات ت عرضها غلى:المستخدم ولا اخقرنا حفظ يقوم 
البرنامج بحفظ التعديلات مؤقتاًء ينتهي هذا الحفظ عند إغلاق البرنامج وعند فتحه مرة أخرى نفتح 
البيانات القديمة من قاعدة البيانات»ء ولإعتماد التعديلات التي يقوم بها المستخدم ونقلها إلى قاعدة 
البيانات يجب أن نضبط الخاصية 4071¥۷ هه۸۴ التابعة لل لأ 6اه( على ماج۴ ثم التعديل 
على ال ل١06۲‏ وبعد التعديل نضغط على زر الحفظ في شريط مستعرض البيانات» في 
المثال التالي سنتعلم كيف نفعل ذلك: 


١-نفتح‏ | لمشر وع السابق (متوفر ذ نسخة منه في المرفق رقم ۹). 
١-نختار‏ الجدول (ata6۲14۷1 ۴W‏ sكructorاtكnا»ء‏ ونذهب إلى نافذة الخصائص. 


۳- نذهب إلى الخاصية ۴400١1¥‏ ۸» الخاصية مضبوطة على عءاه۴ يعني أن المستخدم إذا 
قام بالتعديل يمكنه ذلك وإذا قام بحفظ التعديلات تنتقل هذه التعديلات إلى قاعدة البيانات» أما 
إذا قمنا بضبط هذه الخاصية على ۲٣١٠٥‏ فلن يستطيع المستخدم التعديل على ال 
t4‏ ومن ثم لن يتم حفظ أية تعديلات. الآن سنتعمد الخاصية ۸۴۵0071۷ على 
ما هي علية اه۴ لكي نسمح للمستخدم بالتعديل على البيانات. 


٤-نقوم‏ بتنفيذ البرنامج» وبعد ظهور نافذة البرنامج وعليها الجدولين نختار من النافذة الأولى 
الخلية التي تحوي الاسم "1 (۷0۲50١,‏ وهي الخلية الأخيرة ونقوم بكتابة الرقم 
التالي فیها: "٥٥٥٥٥5٥5٥"‏ او آي رقم آخرء عندما نقوم بالتعديل في الخلية المذكورة يظهر 
قلم رصاص صغير مقابل الخلية ليُعلمنا بأننا نقوم بعملية تعديل للبيانات كما في هذه 


TI Burke, Briar 


Teco OMatt, Lol 
Tccol ti1 Oyck, Shelley 
T+ laadEZZz  Halvarsan, Mikhael 


CODON Halvorson, Fim 


Department ا‎ 
Englsh | 


„Relational Datab 
..Renaissarcê Hš 

| Reformation Hist 
Patter Drafting 
Computer Graphics 
1 „Early Medieval H 
Tlie Sbiart Hs 

| Quilting I 
ultima 


Lomputer Science 
ay 

History 

Industrial Design 
Komputer Sclence 
History 

History 


Industrial Design 


Industrial Design 


Prof 
wisan, Peter 


Mackenzie, erry 
O'Neil, Mary 
Halvorson, ichael 
FHalrarsan, Kim 
Edison, Larry 
Delmare, Maris 
Halvorson, Michael 
Halworsan, Kim 


Halvorson, Ki 


^  Daysûnd Times 
PAF 1:0 
TE B2: 
PEF 11:00 
FF 2:00 
F 3:00 
WF 9:00 
TE 3:00 
PTF 1:00 
FHF 10:00 
TE 1:00 


بعد تكملة الكتابة الخلية نضغط على زر الحفظ الموضح بالصورة» بعد الضغط على زر 
الحفظ يقوم البرنامج بحفظ التغييرات في قاعدة البيانات ويمكنك التأكد من ذلك بإغلاق 


الإرنامج ك فته مرة أخرئ لشاهة اليانات الت مت بتر ها قد تبرت ماذا خدث ما 


هو كود الحفظ في قاعدة البيانات» نذهب إلى زر الحفظ في مرحلة تصميم البرنامج وننقر 
علية نقرتين لينقلنا إلى منطقة الكود وإلى الحدث ۳)1٤)‏ وسنرى هذا الكود وهو الذي يقوم 


بحفظ البيانات في قاعدة البيانات: 


Me. TableAdapterManager. UpdateAll(Me.StudentsDataSet) 


هي عبارة عن مكون جديد في فيجوال بيسك ۲۰۰۸ يمح sl! Table AdapterMa1a9€r‏ 
فتقوم بحفظ )۸1٥هل‏ ملالك بالتعامل مع أكثر من قاعدة بيانات من برنامجك» أما الطريقة 
التعديلات على كل الجداول المفتوحة في برنامجك» هذا يعني أنها لا تحفظ التعديلات في الجدول 
» إذا أردت كعءكهاع فقط وإنما تقوم بحفظ التعديلات التي حدثت حتى في الجدول ۲u ٤0٣۶‏ اsہ|‏ 
فقط استخدم هذا الكود ٣5۲۷۳0۲5:‏ افقط حفظ التعديلات على الجدول 
Me.Instructors TableAdapter. Update (Me.StudentsDataSet.Instructors)‏ 


والذي يقوم كان الفيجوال ۲٠٠٠١‏ يقوم بكتابته فقط بدون كود حفظ كل الجداول كما في ۲٠٠۰۸‏ 
لكننا الآن نستطيع كتابة الكود للجدول الذي نريد حفظ تعديلاته فقطء تستطيع الآن حفظ التعديلات 
التي تكتبها على الجداول تستطيع كذلك إضافة سجلات جديدة لقواعد البيانات في الجداول بالذهاب 
إلى تحت آخر سجل والكتابة فيه ثم حفظ التعديلات» إذا أردنا أن نمنع المستخدم من التعديل على 
الجداول نضبط الخاصية 71¥ 200ء۸ للجدرل Dat a61‏ على .True‏ 


تستطيع القول بأنك وضعت قدمك على الخطوات الأولى في تعلم التعامل مع قواعد البياناتء 
تستطيع مواصلة تقدمك بالرجوع إلى الكتب المتخصصة في قواعد البيانات والرجوع إلى المصادر 
التعليمية على إنترنت مثل موقع فيجوال بيسك للعرب وموقع الفريق العربي للبرمجة. 


خلاصة الفصل التاسع عشر 


من اجل أن 


تتواصل مع الجداول في 
قواعد البيانات 


وضع الأداة "الجدول' 
Pat ٩‏ ووضع 


بیانات جدول کامل 


قم بالتالي 

من قائمة aa‏ 0 نختار Add New Data Source‏ ومنھا نختار قاعدۃة 
البيانات ونختار منها ما نحتاج من الجداول والحقول لنكون ما يسمى 

بمجمو عة البيانات اعكه†ه0. ومن نافذة مصادر llبيlنlٽت Data Sources‏ 
من نافذة مصادر البيانات Data S0UrCeS‏ بجانب مستكشف المشروع 


نختار أيقونة الجدول ونسحبها بالماوس ونضعها على النموذج» نقوم بتكبيرها 
لتکون کل الأعمدة ظاهرة لنا. 


ننقر فوق الجدول 036/١١‏ وسنرى في أعلى يمين الجدول سهم صغير 
ننقر علية لتظهر لنا قائمة نختار منها 0ata‏ Wءآ۷ع۴۲‏ لتظهر لنا نافذة 


نضغط على الزر ۴۲۴۷1۴W‏ لنرى البيانات التي ستعرض على الجدول 


DataGrid 


DataGrid 


ترتيب السجلات في 
الجدول 


تغییر عرض عمود 
معين في الجدول 
إخفاء أسماء الأعمدة في 


الجدول 
تغيير ألوان السجلات 


الفردية عن الزوجية في 
الجدول 


تغيير لون خط الجدول 


إضافة جدول آخر 
DataGrid‏ إلى 
النموذج 


t80‏ بعد تنفيذ البرنامج. 


نضغط على السهم الصغير المذكور في الخطوة السابقة ونختار )أ٤‏ 
ئ005 ثم نختار العمود الذي نرید إلغاؤه ونختار ۸٥١0۷۵‏ 


في لحظة تشغيل البرنامج نذهب إلى العمود الذي نريد ترتيب السجلات على 
أساسه»ء وعند اسم العمود ننقر ليقوم البرنامج بترتيب الجدول على أساسه 


ترتيباً تصاعديا ننقر مرة أخرى لنقوم بالترتيب بطريقة تنازليه. 


من نافذة الخصائص نختار الخاصية K0)1۳١5‏ وننقر الزر ... ومن النافذة 


التي تظهر نعدل قيمة الخاصية ل۷1 بالقيمة المناسبة. 


False yle ColumnHeadersVisible ةıصlخll‎ ٰbطıضن‎ 


نقوم بتغيير الألوان بهذا الشكل لنجعل قراءة الجدول سهله ومريحةء وذلك 
بالذهاب إلى lاlخاصuة AlternatingRowsDefaultCe((Style‏ وفي 
النافذة التي تظهر نعدل الخاصية ۳0)0۲)٤ه6‏ إلى اللون الذي نريدء ليقوم 


البرنامج باعتماده للسجلات الزوجيةءواللون الأبيض للفردية. 
من الخاصية GridColOr‏ 


بو اسطة الماوس من نافذة مصادر البيانات 0a 500۷۲٤٣٥١‏ نختار الجدول 
الذي نريده ونسحبه إلى النموذج» نقوم بتكبير النموذج ليتسع للجدول الجديد 
وإذا أردنا إضافة مستعرض للجدول نضيف الكائنj BindingNavVigator‏ 
من صندوق الأدوات ونضبط الخاصية ۲٣€‏ ا450١‏ ل١81‏ له على الجدول 


الجديد. 


منع المستخدم من نضبط lالخlاصية .True yJe DataGrid — ReadOn|y‏ 
التعديل على البيانات في 
DataGrid —lJI‏ 


حفظ التعديلات التي ولا لابد من ضبط الخاصية y|ہ0إRead‏ lنجدرJ False ylJe DataGrid‏ 
يقوم بها المستخدم على تم في وقت تنفيذ البرنامج نضغط على الزر حفظ في مستعرض البيانات» 
قاعدة البيانات ويمكنك استخدام الكود التالي في حفظ التعديلات إلى قاعدة البيانات: 
Me. TableAdapterManager. UpdateAll method‏ 


الفصل العشرون 

إنشاء مواقع الإنترنت وصفحات الإنترنت بوط Visual Web Developer‏ yو‏ 
ASP.NET‏ 

تمت إضافة الأداة Web 0ev) 0p‏ اهuءVi‏ إلى نسخة الفيجوال بيسك ۲٠٠۸‏ والتي تظهر 
بنفس مظهر بيئة التطوير ولكنها مخصصة لبرمجة الويب و 3.5 ۲٤..45۴ء‏ أول ظهور لتقنية 
ال 5P. "۴١‏ كان مع نسخة الفيجوال بيسك ۲۰۰۲ کبدJı‏ ئ— WebClasses‏ ڪ DHTML‏ 
Designer‏ مه۴ في فيجوال بيسك ٠١‏ إننا لن نستطيع هنا أن نقوم بتعريف كامل لبرمجة الويب 
لكننا نستطيع أن نقوم بأن برمجة الويب تتشابه مع برمجة تطبيقات الويندوز»ء حتى إذا كانت لديك 
خبرة قليلة بال ا11۸ أو حتى إذا كنت لا تملك أي خبرة إقراً هذا الفصل لتستفيد وتتعلم كيف 
تقوم ببناء تطبيق للويب وعرض البيانات من قاعدة بيانات مايكروسوفت أكسس على المتصفح. 
ASP.NET ga‏ 

دعم تقنية ال )AsYnchronous لavaScript and XML) AJA×‏ في هذه الإصدارةء وتمت 
إضافة مكونات جديدة وكذلك تمت إضافة ٥۲ا50ه†03٩‏ 1|۸ التي تسمح للمبرمج من استخدام 
تقنية | »)Language-lntegrated Query) LINQ‏ تتشابه ۸5۶.۴۲ بعض الشيء مع 


ضرتها القديمة ۸5۴ )Active Server Paes)‏ لکننا نستطیع أن نقول بأن ۸5۴.٤‏ تحتوي 
على العديد من التطويرات التي لا تقاوم» التعامل مع 45۶.۸٤١‏ يُعني أنك تقوم بتصميم برامج 
إنترنت وصفحات إنترنت تحتوي على بيانات وتتعامل مع المستخدم» يمكن فتحها بواسطة 
متصفحات الإنترنت مٿل ١0۲€)ص×E‏ nternetا‏ و F۴¡reF 0X‏ وera‌0p‏ وغیرھا من 
المتصفحات» بعد التصميم نقوم بحفظ هذه الصفحات على خوادم إنترنت W٥ 56۲۷۵6۲١‏ لتعمل» 
نستطيع تشغيل صفحات الإنترنت التي قمنا بتصميمها على جهازنا المحلي للتأكد أن الصفحات 
تعمل بشكل صحيح ثم نقل الصفحات المصممة إلى خوادم إنترنت 56۲۷۵6۲١‏ ۷6 لتشغيل 
الصفحات المصممة على جهازنا نحتاج إلى ما يسمى ب ؟|| إذا كان لدينا نسخة الفيجوال ۲٠٠۲‏ 
أو ۲٠٠۳‏ أما في نسختي ٠٠٠٠١‏ و ۲٠٠۸‏ فلا نحتاج له ويمكننا تشغيل الصفحات مباشرة» لإنشاء 
صفحة إنترنت في فيجوال ۲٠٠۸‏ نضغط على عاك ا٥۷ "۴W‏ في قائمة ها۴ أو الاختصار 
Shift +A)t+N‏ ثم نستخدم الأداة Web Develo p8۲‏ )اVisua‏ لإنشاء صفحة إنترنت أو أكثرء 
وعند تصميم صفحات الإنترنت تتكون الصفحة من قسمين قسم التصميم لإضافة أزرار و غيرها 
من الكائنات وقسم أكواد لكتابة الكود كما في تصميم برامج الويندوز يوجد واجهة للمستخدم ويوجد 
مكان للكود» يمكن للكود التابع للقسمين السابقين أن يُحفظ في ملف واحد على هيئة ×5Pه»‏ وبشكل 
عام يتم حفظ الكود التابع للتصميم والواجهة في ملف ×5 وحفظ الكود الذي قمنا بكتابته في ملف 
على هيئة 50×.۷0ه الشكل التالي يوضح كيف يتم ذلك: 


ذا ملف الگود في السرف rعوسںrط Web‏ 


{Internet Explorar, 


Netsca pa Navigator Web Forms page 

7 | nternm aî 

وهذهالصفحة هذا جهاز متصفح کک ا 

Client computer ا تظهر الإالترنت ليا" برنامج‎ Web server 
ûf devicê التصفح‎ E 


.aspx] 


الفرق بين تطبيقات إنترنت وتطبيقات الويندوز 


رلا قرو باقر اض صقحات الأارنت بر افظة تتح لر ادات يانات رامل مع مرق 
الويب» تحتوي صفحات الويب على نفس المحتويات التي تحتويها تطبيقات الويندوز فكليهما 


يحتويان على صور» أزرار» نصوص» وبعض الكائنات الأخرى التي تقدم بيانات ومعلومات» لكن 
هناك فرق بين الكائنات التي نضيفها إلى صفحات الإنترنت وبين الكائنات على تطبيقات الويندوز» 
الكائنات التي نضيفها لصفحات الويب توجد في قوائم Jsş Web Developer Toolbox J‏ 
كائن من هذه الكائنات يحتوي على أحداث معينة تختلف عن أحداث برامج الويندوز وكذلك طرق 
6 ۴ معينة وخصائص مختلفة عن تلك التي تضاف لتطبيقات الويندوز. 


Server Controls gyİ كائنات لويب‎ 


كائنات الويب أو كائنات الخوادم ئاه٣‏ ا٣0 ٣۷۲‏ هي كائنات التي تضاف إلى تطبيقات 
الإنترنت وتعتبر أقرب للكائنات المضافة إلى الويندوز من كائنات ال ا بالإضافة إلى 
الكائنات المعروفة للتعامل مع تطبيقات الويندوز مثل صناديق النص والأزرار وغيرها من الكائنات 
هناك كائنات جديدة كليأً مثل الكائن ١۵٥م‏ لا ]۴1 الذي يقوم برفع الملف و الكائن ٣۷1۴W‏ وها 
و Required FieldValida tor‏ في الصورة التالية سنستعرض معظم الكائنات التي تضاف 


لتطبيقات الويب: 


× ا اش 2 ا 
ا fê] abestitıtion a = Ma¥igation I= AJAX Extensions‏ د kk Pointer‏ 
Localize k ls k Pointer‏ ۳ چ ا 
abi TextBox = EF SikeMapPath [A SrriptManager‏ 
Button lk Pointer î Menu E] SrriptManagerProxy‏ 
Linkêutton j Glew > Treeview E Timer‏ 
lÎ] imaşešutton Û Detalist 3 Login F] UpdatePanel‏ 
A HyperLink Î Detalevîew lk Pointer FÎ UpdateProgress‏ 
E DropDownList Î Formview ÊX Login |= Reporting‏ 
Liskox FE Lityiew A=] Logintiew lk Porter‏ 3= 
Checkbox EE Repeater AJ) PasswordRecovery j] McrosoftReportviewer‏ 
CheckBoxList ua# DetaPager A Login #abus E] crystaReportviewer‏ =[ 
RadioButton f SD etaSource j LoginName BÊ CrystaReportPartsviewer‏ ® 
RadloButtonList Î ûrcessDztaSourca A Createl lser Wîzar d lÜ GrystaReportSource‏ = 
la] image i LnqDataSourcs fl ChengePassmord [E HL‏ 
n i8 ObjectDataSource [= Webparts ____ ] k PE‏ شا 
E] Table fl, nDataSource lk Pointer I IRpırk {Button}‏ 
a. i webPartManager E E‏ ج BulletedLlst il,‏ =+ 
iËë ProxyWiebPartManager Input (SubmE}‏ س a H ٣‏ 
eem „| WebFartzone abi Input (Text)‏ ا 8i‏ 
El Calendar zy RequredFleldvaldator E Cakalogzone eb Input (Fle)‏ 
AdRotator Ey Rangevaldator 1iJ OedarativeCakalogFart E Inpit (Password)‏ 1 
tı Filelpload ¥3) RegularExpresslonYalldator lll PageCatalogPart [#] Input (Checkbar)‏ 
Wizard Fly Compare¥alldator ElÎ ImpartCatalogPart (@) Input (Radia‏ 
E *ml =, Custom¥aldator 3# Edkorîone ıi Input {Fiddler‏ 
TE Multiview Î Yaldatior Summary A AppaaranceEdtorÊart Ei Textarea‏ 
[I Panel ii Hagia Z BehaviorEditorfart I Table‏ 
E] PlaceHolder F Login FÎ LayoutEditorPart ll Image‏ 
Ê New + WebParts i PropertyarldEditorPart EE select‏ 
Subst tution 3 AJAX Extensions FÎ ConnsctonsZone = Horizontal Rule‏ 31 
کے E Dw‏ امس ساس Ak‏ 8 ایا Hd succeeded LL e‏ 


HTML —Û كائنات‎ 


كائنات ال ا١1‏ هو الكائنات المرئية القديمة التي تضاف لصفحات الويب وتعتبر مدعومة في 
كل المتصفحات وتتبع معايير لغة ال ا1۲۸ تحتوي هذه الكائنات على أزرار وصناديق نص 
وصناديق الاختیار ٤)۸٥ ٤۸50×‏ عند استخدام هذه الكائنات فإننا نستخدم أكواد ال ا1۲ إذا 
كانت لديك خبرة سlبقة yi HTML Jl‏ ب— Visual Basic 6 DHTML Page Designer‏ 
فستكون لك خبرة بمتل هذه الكائنات» هذه المكونات تتميز بأنها مدعومة من كل المتصفحات وسهل 
جد التعامل معها لكن عيبها هو المحدودية فليست مرنة بالنسبة للمبرمج ولا تتيح خيارات عديدة 
للمبرمجين» هذه الكائنات في الصورة التالية: 
lk Painter‏ 
L_J] Input fEutton}l‏ 
û Input Reset}‏ 
a Input Submit}‏ 
Input {Text}‏ 
Input (File)‏ 
Input (Password)‏ 


Input (Zheckbo:} 
(a Input {Radio} 


E! Textarea 
HH Table 
اا‎ Image 
Select 


— Horizontal Rule 


Visual Web Developer مlدخت~lڊ إنشاء صفح إنترنت‎ 


قبل برمجة صفحة إنترنت لا بد من معرفة متطلبات البرمجة بال ۸5۴.٤۲‏ والمتطلبات 

كالتالي: 

-١‏ لابد أن يكون على جھازك Web 0e۷e)0p€۲‏ ا)۷isuaء‏ بحیث یسھل علینا استعراض 

صفحات الإنترنت المصممة على جهازنا بدون الحاجة لرفعها على خادم إنترنت» في نسخة 

الفيجوال ٠٠٠٠١‏ و ۲٠٠۸‏ تستطيع استعراض صفحات الإنترنت المَصَممة بإحدى ثلاث طرق: 
-١‏ على جهازك المحلي بدون رفعها على الإنترنت. 


۳ علی سیرفر Ftp‏ 
سنستخدم الخيار الأول في هذا الكتاب لإنه الخيار الأسهل بالنسبة لنا ولا يحتاج سيرفر شخصي 
الموقع في ملف واحد نقوم لاحقا برفعه على سيرفر إنترنت. 
ملاحظة: إذا أردت رفع الصفحات التي تصممها على موقع فتأكد أنك جهازك يحتوي على ال ؟|| 
والمكونات ذات العلاقة في ويندوز ۴× نختار إضافة وإزالة البرامج في لوحة التحكم ومنها نختار 
إضافة أو حذف مكونات الويندوز نختار ال ؟|| ونقوم بتنصيبه على جهازناء 


Control Panel>Add Or Remove Programs>Add/ Remove Windows 
Components>IIS 


أما في ويندوز فيستا فنفتح البرامج والميزات في لوحة التحكم ثم نضبط ميزات الويندوز على 
تفعیل أو إلغاء ثم نختار میزات ال ؟۶|| و 5۶۴.٤۲‏ لتنصيبهما على جهازناء 


Control Panel>Programs And Features> Turn Windows Features On Or 
Off>IIS and ASP.NET features 
يفضل القيام بهذه الخطوة قبل تنصيب الفيجوال بيسك والدوت نت فريم وورك على جهازنا حتى لا‎ 
يحدث تعارض لاحقاء وإذا لم يتم ذلك من قبل وحدث خطأ قد يكون بسبب تتنصيب الفيجوال بيسك‎ 
والدوت نت قبل هذه الخطوة.‎ 


١-نفتح‏ الفيجوال ۲٠٠۸‏ ومن قائمة ۴|٥‏ نختار ٥اك‏ ا٥۷ "۴W‏ أو الاختصار 
Shift + A+‏ (إذا لم تجد New Web Site‏ في قائمة ۴1۵ فهذا يُعني أنه ليس لديك 
.(Visual Web Developer —I‏ 


۲-ستظهر لك النافذة التالية: 
New Web Site‏ 


Templates: | .NET Frarnewark 3,5 به‎ 8 E" 


Y¥isual Studio installed templates 


a 4 e RB F @ 


و 


E N Cs ASP.NET Web Empty Web WCF Service ASP.NET ASP. HET 
SerYice Site Reports W,,, Crystal Re,,, 


My Templates 


search Online 
Templates... 


û blank ASP.NET Web site (NET Framework 3.5 


Location: File 54sterm w | | Documents and Settings, {My Documentsivisual Studio ZOD # 


Language: Yisual Basic ن‎ 


من النافذة أعلاه سنختار ٥اك A5۶. .٤۲ W٥‏ ونتأكد أن نسخة إطارات العمل هي 
Net Framework 3.5‏ . وكذلك لغة البرمجة ٤أكئج6‏ أجuءا۷‏ والخيار Locati0n‏ 


مضبوط على ۳ Syst‏ ٥lا۴.‏ 


۳ نضغط على استعراض 5۲0۷5۵ لننشئ مجلد جديد باسم "۷٤۸420‏ في المسار 
ئ65 .حع أو أي مسار آخر نريده. ستلاحظ الفرق بين تطبيقات الويب وتطبيقات 
الويندوز بأننا نقوم بحفظ تطبيقات الويب أولا ثم نصممها بعكس تطبيقات الويندوز التي 

٤‏ نضغط 0 لإنشاء المشروع» يقوم الفيجوال بيسك مباشرة بإنشاء الصفحة 0f)‏ لتقوم 
بتصميمها وكذلك كتابة الكود في الملف ط۷.×مكه. )ه0۴ التابع لهاء ستكون بيئة 
التطوير كما في هذه الصورة: 


E 


Ba ABELLA B 


Î Cî ımyşchapaT', 


FT Soliton Explore الو‎ a SOU OES 
Praperties wl Sx 
Cefault.aspu Web File Fraperties ِ: 


HIE 


Fila Nara Daf auk, api 
Fila Name 
hiame oF His Fle. ETE FEET 
ln 10 5لت‎ E] : 


7 mytliapZO - Microsofl Visual Sludlis 
Fle Edt Hew Wisbgte Êul Bebug Fgrmat Îodls Tek window Help 


a A RAA aL : کے‎ 


لاحظ في أسفل يسار الصفحة يعرض لنا الفيجوال ۲٠٠۸‏ ثلاثة خيارات من خيارات 
التصميم وهي (ا1)م5 ,”يٍآsم0»‏ و ٥ا )Sou‏ یعرض لنا الخیار 061۸ تصمیم 
الصفهة لفرت الاي رفير فى التصف ررض اهار اناو 5 مرج بين الي 
والكود أما الخيار 501۲٥۵‏ فيعرض لنا كود الصفحة فقط بصيغة ا1۲۸ والذي بدوره 
يظهر في متصفح المستخدم الذي يتصفح صفحتك. في مستكشف المشروع ١10ځ‏ )50 
orerاEx>p‏ ستجد العديد من الملفات أولها الصفحة التي تقوم بتصميمها ×م5ه.ا)efau‌D‏ 
وكذلك صفحة الكود 50×.۷5ه.))لاهfع‏ 0 تحتها مباشرة وكذلك ملف الإعدادات 


.Web.config 


٥-تختلف‏ صفحات الويب عن تطبيقات الويندوز بأنك تستطيع إضافة النصوص إليها مباشرة 
بدون الحاجة إلى صندوق النص كما في برامج الويندوز» فإذا كنت في الخيار 4۸ء0 
تستطيع مباشرة كتابة النص» عند الخيار 501۲٥۵‏ سترى النص الذي قمت بإضافته 


موجوداً ولكن وسط أكواد ال ا۸ 1۲؛ في حالة التصميم ”اوه سيظهر النص من 
الأعلى إلى الأسفل كما هو الحال عند طباعة النصوص في برنامج الوور ۷0۲١‏ ولن 
تظهر أكواد ال ا١1‏ في مرحلة التصميم» فإذا كنا الآن في الخيار ١ء6(‏ سنشاهد 
مستطيل نقوم بالكتابة فيه (مع العلم بأننا سنقوم بتصميم تطبيق يقوم بحساب الفوائد الربوية 
على سعر سيارة» نعرف أن الربا حرام لكننا هنا مع التطبيق المُقدم من مؤلف الكتاب 
وسنستفيد من فكرة التطبيق البرمجية مع يقيننا بحرمة الربا) نقوم بالكتابة في المستطيل ما 
يلي "حساب أقساط الفائدة للسيارة" وتحتها مباشرة نكتب " أملئ المعلومات المطلوبة 
وا ا 


سنقوم الآن ببعض التغييرات على العنوان الذي كتبناه وعلى النص الذي تحته» إذا لم نشاهد 
صندوق الأدوات ۴٠١۳٣٤٤1 "١‏ في بيئة التطوير ننقر بيمين الماوس على الشريط العلوي 
لبيئة التطوير ثم نختار صندوق الأدوات ۴١١۳١٤٤14‏ من القائمة التي تظهر فسيقوم 
الفيجوال بإضافته مباشرةء بعد إضافته نظلل العنوان 'حساب أقساط الفائدة للسيارة" ثم من 
شریط ۴١١۳٣۵٤٤1٣٩‏ نختار الرمز 8 وحجم الخط ٤۲ء‏ لتكون الشاشة كما في هذه 
الصورة: 


Fle Edt Yew Webhgte Build Debug Format Table Tools Test Window Help 


E RET eT 4 کو ود ا | کت 5ے کک و وا ا ا ر‎ 2 
Sle Application: Manual __ > Target Rule: <Automatle>_ اسا‎ (None) > Simplified Arabic x xlarge > r U 
| _ Pefault.aspx* start Page | wx 
إا‎ 


| حساب أقساط الفائدة للسيارة 


ET 
ا‎ 


سني المعلومات المطلو دة و أضفغط "ساب | 


۷-لنذهب الآن نرى كود ال ا17 فكما وضحنا سابقا نقوم نحن بعملية التصميم ويقوم 
الفيجوال بيسك بإضافة کود HTML AI‏ في التبويب «Source‏ نضغط على التبويب 
01٥‏ وسنری کود ال ا31 كما في هذه الصورة: 
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File Edt Yew wWwebgte Buld Debug Fgmat Tools Teg  Wirmw Help 
1 ê Ez E Ll ê BÊ ÃË 


02 8 کے ےو اھ کے کک اھ ت دد ل ی ع ق لار 
Style Application; Manual = Target Rule: (Hewe Inline Style} - #2 ۳ B J7‏ 


س ت SR SRE.‏ = ا لا 
Defaulk.asp# Sart Page w x Solutiûnı Explorer Rx‏ _ | 
AR EEE‏ ا ات Cllent Objects & Events | (Na Events)‏ | & 
E) <html xmlna="http:// uuu. u3. orq/ 1999/xhtml"> a E‏ 2 
El shead runat=“server"z 4) np Pe‏ 
0 ۳ ا tiEls>Untitled Page</ tit lax»‏ 
<atyle type="text/css"> 1 : a‏ 4 
.St¥LlE1‏ 
4 
font-size: x-large;‏ 
font-weight: bold;‏ 
1 
4f atyler‏ 
Fé head>‏ 
E) tbody‏ 
«form id="formi" runat="server">‏ اط 
AAV> 4 Solution Explorer Tl bata Sources‏ 4 
FEspan class="style1" dir="RTL" lang="AR-YE" Properties Px‏ 
style="font=family: squats Simp lILEieA Arabicecuot: g MERZASEII>EANEzZEamily:‏ 
ت ا طساب أقساط االقاقدخ للسارة 
8 ختة عة 2/7 
«span dir="RTj" lang="AR-YE" style="font-size:15.Opt: (ld)‏ 
font-family: quot: SIMPLILAEA Arabic squot: ZMEOZASGL1>FontZEemily: squot: TrEBUEReEE [Seq zin‏ 
HESZEAEESSE EDE EEMIly:Calibr i:rmeg-heansi-font-fani ly: quot: TEebuz het HSsquotig Class‏ 
MSEZANSAZLADGNaGE : EN-US MEAZEAFEASEZ LANGE : AR-YE:REOZDIAIZLARQNAGE : AR-YE"> gla Î || or r‏ 
uot; eb + 2‏ ساب uot‏ امعلومات المطلويبة واقغط 
ê apan>‏ 
ا div>‏ 4 
FOF» xmlıLang‏ 7< 
tk 4f body‏ 
om‏ ات 4f HEmL>‏ 
FE OTE REF‏ | ا 
Lj Dešğn | O Spt _ Hl Sûuteê chimlz= | sbady> | Fom#formlz | | div> | >‏ 
Ready Ln 20 Col 9 m3 ÎR‏ 


لاحظ كيف قام الفيجوال بيسك بكتابة أمواد ال ا قم بقراءة الكود أكثر من مرة 
لتعرف كيف قام بكتابة الكود لكل سطر وكيف كتب مقاس الخطء لاحظ كذلك كيف قام 
الفيجوال بيسك بتقسیم الکود على اساس علامات ال ا۲ء فوضع کل كما کتبنا بين 
الكلمتين <رإلهط> و </رلهط> ولاحظ أيضا أن كل تبويب ٣۵4‏ من تبويبات ال 
11M‏ تبدأً بين القوسين <> وتنتهي بنفس الكلمة ولكن بين العلامتين </>. 

۸-نذهب إلى صندوق الأدوات لإضافة بعض الأدوات (يجب العلم بأن أدوات الويب تتشابه مع 
أدوات تطبيقات الويندوز وهناك بعض الفروق مثلاً لإضافة أداة ويب إلى التطبيق لابد من 
النقر بالماوس مرتين على الأداة )1)٣-عاطاه0‏ من أجل إضافتها للتطبيق الويب)» 
نذهب إلى صفحة الويب التي نقوم بتصميمها ونذهب إلى علامة إدخال النص (الإشارة 


الصغيرة (العمود الصغير) التي تظهر وتختفي في نهاية النص الذي نقوم بكتابته) ونذهب 
بها إلى نهاية السطر الثاني الذي کتبناه سابقاء ثم نضغط "6١‏ على الكيبورد ثلاث مرات 
لترك مسافة بين النص المكتوب وبين المكونات التي سنضيفها إلى الصفحة لإن المكونات 
كاف ا فن ها الج د ا 

ملاحظة: يقوم مصمم الويب ضمن بيئة الفيجوال بترتيب الكائنات على صفحة الإنترنت 
بشكل أوتوماتيكي على أساس العلاقة بين الكائنات» وهذا فرق مهم بين تطبيقات الإنترنت 
وتطبيقات الويندوز» حيث نستطيع وضع الكائنات في المكان الذي نريد على تطبيقات 
الويندوز» نستطيع تغيير أماكن الكائنات على صفحة الويب بالشكل الذي نريد باستخدام ما 
يُسمى ب التحريك الكامل 1١‏ ائم t٥‏ امsطص‏ لكننا سنلاحظ العديد أكثر من ردة 
فعل من أكثر من متصفح. 

۹-ننقر مرتين )٤1ا٤-۵اطاه0‏ على صندوق النص في صندوق الأدوات ليقوم البرنامج 
بإضافة صندوق نص إلى مكان إشارة الإدخال. ستلاحظ ظهور النص 
asp: textb0x×# ex tB 0X1‏ فوق صندوق النص الذي قمنا بإضافته حیث ينبه 
5P. 1‏ أن هذا الكائن يتبع له» لا تقلق سيختفي هذا النص عند تشغيل التطبيق. 

٠-٠‏ نضغط خارج صندوق النص لنغير مكان إشارة الإدخال إلى ما خلف صندوق 
النص ثم نضغط E٣6۲‏ مرتين» ثم نضغط على أداة صندوق النص مرتين لنضيف 
صندوق النص الثاني لتطبيقنا. 

-١١‏ نكرر العملية السابقة لنضيف صندوق نص ثالث للتطبيق» سنقوم الآن بإضافة 
ليبلات كاع ها للتطبيق فنذهب بالماوس إلى يمين صندوق النص الأول وننقر لنقل إشارة 
الإدخال إلى يمين صندوق النص الأول لنقوم بإضافة ليبل» نضغط مسافة مرتين لإنشاء 
فراغ بين صندوق النص والليبل. 

۲- نضيف الآن ليبل للتطبيق بالنقر عليه مرتين في صندوق الأدوات. 


۳- نكرر العملية السابقة مرتين لإضافة ليبل لصندوق النص الثاني والثالث. 


1£ ننقر على یمین اللیبل بجانب صندوق النص التالث ثم نضغط على E۸٥۲‏ مرتين 
للاإنتقال سطرين بإشارة الإدخال. 


-٠٥‏ نقر مرتين )نا٣-عاطاuه0‏ على الزر ١0ا8‏ في صندوق الأدوات لإضافة 
زر إلى نهاية صفحة الإنترنت» ستكون شاشتك كما في هذه الصورة: 
eF*‏ 


Default.aspk* Fart Page 


حساب آقساط الفائدة للسيارة 


1 أ‎ MF j 2 ê + ا‎ i ع‎ FF 
امل انشعو مانا السظلودة و احصنعط خانا‎ 


Label 


Label | 


Label 


a2p:buttorn# Button! | 
Button | 
و‎ 


| @ Design | Split El Source ahimlz | <hodyz | <ormFformls dy span> | Sasp:Button#Buktbaon1 * 


-١‏ سنذهب الآن إلى نافذة الخصائص لتعديل خصائص الكائنات التي قمنا بإضافتها 
لصفحة الويب» إذا لم تكن نافذة الخصائص ظاهره نضغط على ۴4 لتظهر» الآن سنقوم 
ببعض التعديلات على الخصائص» أول فرق بين تطبيقات الويب وتطبيقات الويندوز 
ستلاحظه في نافذة الخصائص هو تَغيْر اسم الخاصية ١"٠‏ إلى 0|ء وبالرغم من هذا 
التغيّر فلا تزال تحتفظ بنفس الأداء للخاصية .a۳"۴‏ 


 -۷‏ نقوم بتعديل الخصائص للكائنات كما في الجدول التالي: 


الكائن 
TextBox1‏ 
TextBox2‏ 
TextBox3‏ 
Label1‏ 
Label1‏ 


Label\2 
Label\2 


Label3 
Label3 


Button1 
Button1 


Text 


ستكون صفحة التصميم كما في هذه الصورة: 


الضبط 
txtAmount‏ 
txtlnterest‏ 
txtPayment‏ 
lblAmount‏ 


مبلغ القرض 
lblIlnterest‏ 

نسبة الفائدة ( مثلاً )٩‏ 
lblPayment‏ 
القسط الشهري 
btnCalculate‏ 


i 


حساب أقساط الفائدة للسيارة 


1 سلر: 1 لمعلومات آ لمطلو نة وا ضفط ''خسای'"' 


E>‏ سدلة القر صنل 


نسدة الفائدة مثا ۹م 


كتابة الأكواد للكائنات على صفحة الويب 


نفس طريقة كتابة الكود لتطبيقات الويندوز ننقر مرتين على الكائن في صفحة التصميم تم نقوم 
بكتابة الكودء بعد إنشاء صفحة الويب يستطيع المستخدم رؤية الكائنات في الصفحة لكنه لا يستطيع 
مشاهدة الكود» لإن الكود يتم تنفيذه على خادم الإنترنت السيرفر ولا تظهر للمستخدم إلا النتيجة» 
وإذا حاول المستخدم فسيظهر له كود التصميم بال ا1۲ فقط بدون الكود الأصلي للصفحةء 
فعندما يقوم المستخدم بالنقر على زر في صفحة إنترنت يقوم الزر بإرسال النقرة إلى خادم 
الإنترنت ۷٥ 5٥۲۷۵۲‏ ويقوم الخادم بتنفيذ الكود بداخل السيرفر ثم إرسال صفحة إنترنت جديدة 
للمستخدم. 


١-سنقوم‏ الآن بكتابة الكود للزر "حساب" وذلك بالنقر مرتين على الزر لتظهر لنا منطقة الكود 
عند الحدث Cc)‏ التابع للزر 'حساب" نكتب الكود التالي: 
Dim LoanPayment As Double‏ 
‘Use Pmt function to determine payment for 36 month loan‏ 
"۴ نستخدم الدالة ' 
لتحديد الأقساط لفترة ٠١‏ شهر ' 
LoanPayment = Pmt(CDbl(txtInterest. Text) / 12, 36, CDbl(txtAmount. Text))‏ 
txtPayment. Text = Format(Abs(LoanPayment), "$0.00")‏ 
استخدمنا الدالة المالية "۴۳ لتحديد قيمة الأقساط خلال الفترة ٠١‏ شهر بال “تماد على نسبة الفائدة 
المكتوبة في صندوق النص ١6١۴5‏ |)×)» تتم حفظ قيمة المتغير بداخل المتغير 
kan Payment‏ تم تتم عملية تهيئة ۴۳٠١۳۳١۵‏ للمبلغ ليظهر على هيئة مالية» ويعرض في 
صندوق النص "٥١‏ ۷ه ۴×اء أما الدالة C01‏ فتستخدم لتحويل المبلغ المكتوب في صندوق 
النص اكءععt”|اt×t‏ من النوع 5٣1١4‏ (نصي) إلى النوع عاطناه0 (رقم حقيقي)ء أما الدالة 
5 لعرض القيمة الغير النسبية للعدد وتستخدم الدالة لعرض قيمة مبلغ القسط كرقم موجب» 
يوجد خط أزرق متعرج تحت الدالة ۸8S‏ وسيذهب هذا الخط المتعرج بعد استيراد مجال الأسماء 
System.‏ والذي سنقوم فيه في الخطوة التاليةء لماذا نقوم بتحويل الرقم إلى رقم موجب 


بواسطة الدالة ۸85 لإن الدالة ۴٣١٤‏ ترجع لنا رقم سالب على اعتبار أن الرقم مدين ولیس دائنء 
ولذلك كان لابد من استخدام الدالة ۸85 لتحويل الرقم إلى رقم موجب. 


-نذهب إلى أعلى منطقة الكود ونقوم باستيراد مجال الأسماء وذلك بكتابة الكود التالي في 
أعلى منطقة الكود: 


Imports System.Math 


نلاحظ أن الكود المكتوب هو نفس الكود الذي تعاملنا معه خلال البرمجة بالفيجوال بيسك في هذا 
الكتاب» كما تعلمنا في الفصل الخامس بأن الدالة 5ئ۸ ليست مضمنه بشكل تلقائي بداخل الفيجوال 
بيسك» لذلك لابد من استيراد الفئة الخاصة بها وهي 3۸ء بعد عملية الاستيراد سيزول الخط 
الأزرق المتعرج من تحت اسم الدالة. 


سيكون شكل محرر الكود كما في الصورة التالية: 
Default.aspu.wb* ' Gefault,aspx | Start Faqe EEE ag‏ 
اب Wl (perlarations)‏ اا î _pefault‏ | 


Imports System. Kath‏ أ 
E Pareial Class _Default‏ 
Irnherits System. Web. IT. Page‏ 


| 


5 Protected Sub btnCalculate Cl1lck {ByVal sender As hject, ByVal e As System. Eventh | 
Dim LoanPayment As Double 1 
"Use Pmt function to determine payment for 36 month loan 
' تستخدم الدالة‎ ۴ 
' لتخديد الأقساظ لفترة 36 شهر‎ 
LoanPayment = Pmt (CDIb1 [txtInterest. Text] Ff l2, 36, CUb]l (txt imount . Text] }] 
txtFayment, Text = Format (Abs (LoanPayment], "$30.00"; 

End Sub 
End Claas 


. نقوم بحفظ التغيير ات‎ ٣ 


٤‏ نقوم الآن بتنفيد التطبيق› لتظهر لنا هذه النافذة: 
Debugging Not Enahled‏ 


The page cannst be run in debug made because debugging is not enabled in the Web, config File, 
What would ¥ou like to do? 


4A Debugging should be disabled in the Web,config File before deploying the 
Web sike to a production environment, 


O Run without debugging, (Equivalent ka ctrl+FS} 


هذه النافذة تعرض لذا تنبيه أمني بخصوص تعديل الملف ۷٥5.٤٥١۴۶‏ نستطيع تجاوز 
هذا التحذير باختيار الخيار الثانيء لكن من الأفضل التعديل على الملف يا؟١هWeb.C‏ 
الآن» ملاحظة: قبل نشر تطبيق الويب أو صفحة الويب تأكد من تعديل الملف 
۷e.‏ لتمنع التعديل عليه من قبل المخربين. 


٥-نضغط‏ )0 ليقوم بتعديل الملف. 


“-نقوم بتنفيذ البرنامج بالضغط على ۴5ء ستظهر لنا مثل هذه النافذة بداخل المتصفح الرئيسي 
في الجهاز: 


Ê Untitled Page - Windows Internet Explorer SENET 


E http lacalhost:44399fchapdUDefault.aspx 2 | 4| 4 | | 2‏ ا 
File Edit View Favorites Tools: Help‏ 

f dF | & Untitled Page جا‎ mM” Ml 7 @ ~” Page ” GG Tools > ©” 
Tee OTT arê now turned off by default, Intranet settin q5 TTT × 


Car Loan Calculator 
Enter the required information and click Calculate! 


Loan Amount 
Interest Rate (for example, 0.09) 


Monthly Payment 


Calculate 


ll Done 


@ Internet | Protected lode: On RA 100% Fw 


طبعا هذه الصورة مأخوذة من الكتاب الأصلي للمؤلف» حيث لم استطع تنفيذ المشروع في 
جھازی سیب بض المقاکل فے۔ ا آ٤‏ :۸5۴ النص فی جھاڑی غل کل حال کل 
من اتبع الخطوات المذكورة سيشتغل عنده التطبيق في متصفح الإنترنت» إذا كان المتصفح 
orerاExp‏ tعternم!‏ فلدواعي أمنية قد يسألك المتصفح بواسطة شريط في أعلى 
الصفحة هل تريد تفعيل الصفحة وهل تثق بما فيها فتختار نعم» أما إذا كان المتصفح 
۴۲۵۴۵۸ ومحمل عليه الإضافة حمأ٣٣05١‏ التي تمنع الأكواد على صفحات الإنترنت من 
العمل قد تحتاج للسمح لأكواد هذه الصفحة بالعمل. 

۷-قم بكتابة مبلغ معين في الخانة المقابلة لمبلغ القرض ولنفرض أنه ١٠٠۸ء‏ وحدد نسبة 
الفائدة ب 09.% ثم اضغط الزر 'حساب"» سيقوم التطبيق مباشرة بحساب القسط الشهري 
بحسب الدالة المكتوبة بداخل الكود وكتابة الناتج ليكون ١٠٤,۷۲ه٠.‏ 


۸-نقوم الآن بإغلاق متصفح الإنترنت» كما تلاحظ بأن إنتاج تطبيقات الإنترنت يشابه إلى حد 
كبير إنتاج تطبيقات الويندوز» فقط تطبيقات الإنترنت تعمل على متصفحات الإنترنت» 
تستطيع إنشاء كئخ”آهم ۲٥۴۵۸‏ لمراقبة تنفيذ الكود في برنامجك كما في تطبيقات الويندوز 
بالضبط. لنقل الصفحة المصممة إلى خادم الويب ننقل ملف ال ×ص5ه. والملفات المساعدة 
(إن وجدت) إلى خادم الويب 56۲۷۵۲ يعمل على ويندوز ويدعم ال ۸5۴.۸٤۲‏ وسيعمل 
تطبيقنا مباشرة. 


التأكد من مدخلات المستخدم 

في تطبيقنا السابق وعندما يقوم المستخدم بإدخال القيم قد يحدث خطأ معين في حالة نسيان قيمة 
حقل معين أو غير ذلك» ولتلافي هذه الأخطاء نستفيد من أدوات التأكد الموجودة تحت قائمة 
7ا۷ في صندوق الأدوات» لتتعلم أكثر عن هذه الأدوات راجع التعليمات المرفقة مع 
الفيجواJ‏ بıك‏ ¬ټDocumentat10.‏ 

إضافة صفحات أخرى ومصادر لتطبيق إنترنت 

الآن بدأنا نستفيد من تطبيقات الإنترنت بحيث نستطيع إضافة مكونات جديدة للتطبيق مثل صفحات 
ال ا11 و الملفات النصية وملفات ال × وكذلك قواعد البيانات وخرائط للموقع وخدمات 
الويب وغيرها من الإضافات» ففي حالة إضافة صفحة ا1۲۸ مثلاء نستطيع ذلك بإحدى 
طریقتین : 


٠‏ بواسطة "عا Add NeW‏ من قائمة ٥آئاع۷‏ في بيئة التطوير» بعد إضافتها نستطيع 
إضافة نصوص وكذلك كائنات ال ا1۲۸ في صفحة التصميم. 


٠‏ بواسطة ")| وہ Add Exist‏ من قائمة ٥†أواعW‏ في بيئة التطوير» بحيث نقوم 
بإضافة صفحة ا1۲ قد تم تصميمها مسبقاء تستطيع إضافة صفحة أو أكثر. 


وللتنقل من صفحة إلى أخرى في تطبيق الإنترنت نستخدم الكائن ٣)‏ أ-ا٣‏ عمل الذي يقوم بالانتقال 
من صفحة إلى أخرى في المتصفح» ونعدل على الخاصية 01و۷" لتحديد مكان الصفحة 
الجديدةء سنأخذ مثال على ذلك بالاستفادة من التطبيق السابق حيث سنقوم بإضافة صفحة جديدة 


للتطبيق تشرح كيفية التعامل مع التطبيق» وللربط بين الصفحتين سنستخدم الکائن HyperLink‏ 
لنضعه في الصفحة الأولى ونربطه مع الصفحة الثانية. 


W۷موئآt€ بالاستفادة من المشروع السابق (موجود نسخة في المرفق٠٠٠)» من قائمة‎ .١ 
ستفتح لنا نافذة لنختار ما نريد منها لإضافته للمشروع» نختار‎ Ad [٥W نختار ۴۳ا‎ 
منها ع111۴ وهي صفحة انترنت بصيغة ا11۸ والتي سنضيف إليها كائنات ال‎ 
لأنھا صفحة‎ server co٣٣مائ فقط و لا نستطيع إضافة کائنات الخوادم‎ 11M 
هو أن‎ server cont ٣هائ والفرق بین کائنات ال ا1۲ وکائنات الخوادم‎ HM 
كائنات ال ا١1 تعمل على المتصفح بدون الرجوع إلى خادم الویب 56۲۷۵6۲ بعكکس‎ 
.server controls eدl كائنات الخو‎ 


۲. نسمي الصفحة ")۸ Help.‏ latorاcu)اWebCa‏ قبل إضافتها إلى المشروع» كما في هذه 
النافذة: 


Add New Item - C:\Documents and SettingslNoonlDesktoplwbsbslO6Ulmychap 20l 


Templates: 
| أ‎ ¥isual Studio installed templates 


1 8 A A O 
Master Pag Web User AA Zien ھ3A&X‎ Client AûlJûx Ten AJAX Maske 
Control Behavior tontrol Library Page 


[ | AJAK-enablad Browser File lass lass Diagram Crystal Report 
WCF Service 


۹ ® ®@ 


HTML Pagê Hcript Fle LINQ to SQL 
Classes 


| | ûnı HTML page that can include client-side code 
a Srreoroecxorer erence reg 


| Lamguage: | Yeual Basie 


۳. نختار ١۸ء‏ ستضاف الصفحة مباشرة إلى مستكشف المشرو ع r€ثExp|0r «Solution‏ 
وج قى مه الصفحات› علي اليسار في صندوق الأدوات ستلاحظ ظهور ات ال 
H1‏ فقط لإن الصفحة صفحة .H1۲ N1‏ 

.٤‏ نقوم بكتابة هذه النص في الصفحة المُضَافة: 

حساب أقساط السيارة 

صفحة حساب أقساط السيارة تم تصميمها بواسطة كتاب تعلم فيجوال بيسك ۲٠٠۸‏ خطوة خطوة 


بواسطة المؤلف مايكل هال فرسون» لتتعلم أكثر عن تصمیم المواقع باستخدام ۸5۴.٤۲‏ إقراً 
الفصل العشرين من الكتاب المذكور. 


قم بكتابة مبلغ القرض بدون كتابة الفواصل أو علامة العملة في خانة مبلغ القرض. قم بكتابة قيمة 
الفائدة في خانة الفائدة ولابد أن تكون الفائدة بين ٠‏ و ١ء‏ ففي حالة كانت الفائدة %۹ 
نکتب .۰۹ 


مع ملاحظة أن هذه الحاسبة تحتسب مبلغ القسط باعتماد على الفائدة المكتوبة وفترة تسديد ٠٠‏ 
شهر» بعد إكمال البيانات المطلوبة اضغط على الزر 'حساب". 


0-— نقوم بتعديل النص وإضافة التغيير ات ليظهر كما فى هذه الصورة: 
* 
حساب أقساط السار ة 
صفحه خسات اقاط السدارة َم تصميمها بو أسطة گتابا تملد بج ان زی اک اء ١‏ خطوة خطوةء 
نو اسطه الولف ماگل هال قر مسون : عاد آگثر عن نصندخ الو فع ناستخذاد ASP.NET‏ اهر أ القصل 
العشرين کل الشتاب المدذگو کے 
تعلبمات الأستخذاء 
قم نشتاره مبل القرض بدو ن كتابة الفو ال أو علامة العملة قى خانة سبلم القرض. قم بكتابة قيمة الفأئدة قى 
خانة الفائدة ولابد أن تكون الفائدة بين ٠‏ و ١ء‏ ففي حالة كانت الفائدة ١‏ نكتب ٠۹.‏ 
مع سلآحظة أن غذه الحاسبة تحتسب ميلغ القسط باعتماد على الفائدة المكتوية وفترة تسديد ۳١‏ شهر؛ بعد 
اکال النبانات السطلودة اضفط ج زر "اجات" 


_ | n.Mankinrmal | ي‎ 


۳ Design | O Spl | El Source shimlz | | sbody> | | sp.MsoNormal= 
نقوم بحفظ التغيرات ثم نتجه إلى الصفحة الأولی لنقوم بإضافة الکائن ۸٣1۔۲ 6م1۷ ليقوم‎ 


نن امراك الا ×مكa faut.‏ نتأكد من أن علامة الإدخال في أسفل 


الصفحة تم ننقر مرتين على الكائن ١۸‏ ا۲عم۷ لتقوم بيئة التطوير بإضافته إلى 
الصفحة. 


۷- نضبط الخاصية ۲٠×‏ للكائن )١1ا۲‏ #م۸۷ على 'تعليمات"» نضبط كذلك الخاصية 0| 
علٴ .InkHelp‏ 

۸-نذهب إلى الخاصية )۲لا عهوآ۷ه" ونضغط على الزر المقابل لها ٠...‏ تفتح لنا نافذة 
لاختيار أو لكتابة وصلة الصفحة التي نريد من الصفحة أن تفتحها في حالة النقر على 
النص 'تعليمات"» من النافذة المفتوحة نختار اlلصفaحة twos WebCalculatorHelp.Nm‏ 


2 في الصو ل‎ 
Select URL PK 
Project folders: Lontents of Folder: 


El E Lr Amychap2l' ÎDefault,aspx: 
1g App_Data 3 
ebZalculatorHelp, htm 


a E 


۹- نضغط 0۸ لنقوم بعدها بحفظ التغيرات» ثم نقوم بتنفيذ التطبيق» ونقوم بإدخال رقم في 'مبلغ 
القرض" ثم نسبة الفائدة ثم نضغط حساب» ونجرب هذه المرة ننقر فوق 'تعليمات" وستفتح 
لنا صفحة جديدة في المتصفح فيها التعليمات التي قمنا بكتابتها في الصفحة المُضافة الثانية. 


المشروع بالمرفق رقم ٠٠٠٠‏ تخيل معي الآن تطبيق انترنت يحتوي على قاعدة بيانات» بالطبع 
سيكون أكثر ديناميكية واحترافاء تفضل فيما يلي تطبيق عن استخدام قواعد البيانات في تطبيقات 
الأ 


استعراض سجلات قواعد البيانات على صفحات الإنترنت 


على صفحات الإنترنت نجد الكثير الكثير من المعلومات» معظم الأحيان لا نهتم بالكم المعلوماتي 
بقد ما نهتم بالكيف» فكيف نستعرض المعلومات التي نحتاجها وكيف نصل إلى المعلومة المطلوبة 
بأيسر الطرق» من أجل هذا أنشاً تم إضافة قواعد البيانات إلى صفحات الإنترنت» فإذا أردنا معرفة 
تفاصيل شحنة ال ا01 أو ال ۴5لا علينا أن نفتح صفحة شركة الشحن ونكتب رقم الشحنة 
لمعرفة بقية التفاصيل من المؤكد أن عملية تتبع الشحنة تعتمد على قاعدة بيانات عملاقة تحتفظ بكل 
التفاصيل عن جميع الشحنات في العالم وتقوم بعرض المعلومات الخاصة بشحنتنا فقط. 


بالاستفادة من المشروع السابق في المرفق رقم ٠٠٠‏ سنقوم بربط المشروع مع قواعد البيانات. 
.Add New Item رlîii Website ةnئlã jan¬-ı‏ 


۲-نختار Web ۴٥۲۳‏ ونغیر الاسم إلى ×مasp Loans.‏ nstructorا‏ ونضغط على .Add‏ 


٣-نقوم‏ بكتابة النص التالي في أعلى الصفحة المُضافة: "الجدول التالي يوضح أسماء المعلمين 
الذين يحتاجون قروض السيارة بالإضافة إلى أرقام هواتفهم" بعدها نضغط E٣۵۲‏ مرتين 
لنضع فراغا قبل إضافة الكائن الجديد لصفحة الإنترنت» حيث تقوم بيئة التطوير بإضافة 
الكائن الجديد في مكان علامة الإدخال. 
الآن سنقوم بالتواصل مع قاعدة البيانات Instructors Jوڏجll ga Students. db‏ 
وسنقوم بالربط مع عمودين فقط من الجدول» لنستعرض بيانات العمودين على صفحة 
انترنت بواسطة المكون 6۲14۷16W‏ والذي يتشابه إلى حد كبير مع المكون 
t86 rN yV ieW‏ الذي استخدمناه في الفصل التاسع عشر من هذا الكتاب» لكن مكون 
الجدول 6۲۵۷16W‏ مصمم خصيصاأ لتطبيقات الإنترنت» قاعدة البيانات المستخدمة الآن 
من النوع مايكروسوفت أكسس لكننا نستطيع استخدام قواعد البيانات من النوع اإ5Q.‏ 

٤-عند‏ وصول علامة الإدخال إلى المكان المناسب ننقر مرتين على المكون 6۲١۵۷16 W‏ في 
صندوق الأدوات» ستقوم بيئة التطوير بإضافة المكون 6۲14۷1۵۷1 مباشرة إلى الصفحة 
ونقوم بالضغط على السهم الصغير أعلى يسار Choose Data Source رlتخiو jal‏ 
ومنها نختار <عع۲اه؟ ها0 ۴Wل۸>»‏ ستقوم بيئة التطوير بفتح نافذة لاختيار قاعدة 


البيانات كما في الفصل التاسع عشر كما في الصورة التالية: 


Data Source Configuration Wizard 


lb Choose a Data Souırce Type 


Where will the application get data from? 


Û Û Û Û Û Û4 


ûrrEss Database LIN ibject site Map ML File 
Database 


Select a data source type fram the box above, Descriptive text for the selected data source will appear here, 


Specify an ID For the data source: 


E 


Lanrcel 


٥-نختار‏ 25€ Access Data‏ ونکتب یا٣‏ عل St‏ في صندوق النص بالاأسفل ثم نضغط 
.Ok‏ 


- سيطلب منك البرنامج تحديد مسار قاعدة البيانات والتي أرفقتها لك في المرفق رقم ٠.٦١‏ 
وهي نفس قاعدة البيانات التي استخدمناها في الفصلين الثامن والتاسع عشر» نقوم بتحديد 
مسار قاعدة البیانات Stu d٥۸."‏ ونختار منھا الجدول ٣۶‏ 0اstrucہا»‏ ومن 
الجدول نختار العمودين ۲u ٤)0۲‏ كn|‏ و PhoneNumber‏ كما في الصورة التالية: 


Configure Data Source - Students 


LL Confiqure the Select Statement 
ا‎ 


Hog would you like to retrieye data from your database? 


O Specify a custom SOL statement or stored procedure 
{@) Specify columns from a table or view 
Name: 


Instructors 


Loalumns: 
HO * Ll Return only unique rows 


[J] InstructorIp WHERE... 
Phonefumber ORDER BY... | 
SELELT statement: 


SELECT [Instructor], [Phonelumber] FROM [Instructors] 


لاحظ أسفل النافذة ستلاحظ بأن البرنامج قام بكتابة جُمل وأوامر ال ا5 على الأعمدة 
التي اخترتها من قاعدة البيانات. 


۷-نختار "٥×‏ لتجربة جُملة ال ا5 ثم نضغط على الزر ٠۴5 Q6۷‏ في النافذة التي 
ا فاط رر قات العين الختا ين 


۸- نضغط آ٣۴‏ لإغلاق المعالج» سيقوم الفيجوال بيسك بإغلاق المعالج ثم تعديل عدد 
الأعمدة وعناوين الأعمدة وكذلك كتابة a5٤‏ في خلايا الأعمدة. 


۹- نضغط السهم الصغير مرة ثانية ونختار ۴١١۲۳١۵‏ 0ا۸ من القائمة المنسدلة ستظهر لنا 
نافذة نختار منها التنسيق المناسب لعرض الجدول انظر الصورة: 


AutoFormal 


Select a scheme: Prewiein: 
Rermaye Formatting 
Lalarful 
Llassic 
simple 
Professional 
Autumn 
ceanica 
Brown SUgar 
alate 
Sand & Sky 
Rainy Day 
Snowy Pine 
Lilacs in Mist 
Black, & Blue 1 
Black, & Blue &ã 
lower Field 
Apple Orchard 
Marcha 
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۰ نختار النموذج .Ok pû Professional‏ 
-۱١‏ نذهب للصفحة الرئيسية للموقع لنضیيف الکائن ٣٣۸‏ ا۲عم۷ لنربطها مع هذه 


الصفحة كما هو الحال مع صفحة التعليمات» نذهب للصفحة ×مكه .)اه۴ 0e‏ ونضع 
مؤشر الإدخال في نهاية الصفحة وننقر مرتين على الكائن )6۲1ص۷ لتقوم بيثة 
التطوير بإضافته للصفحةء نغير الخاصية 1۴×٤‏ للكائن إلى 'قائمة بطالبي القروض" 
والخاصية 0| إلى كاععمءم٣k۴م)‏ أما الخاصية ٣)‏ لا#اهوا۷ه. فنفتح الزر المقابل لها 
لنختار الصفحة 25p×‏ .04۸5 اrاnstructoا‏ ونضغط 0. لقد أكملنا هذا التطبيق قم الآن 
بحفظ التعديلات ثم تنفيذ المشروع لتجربته»ء أدخل مبلغ القرض ۸٠٠١‏ ونسبة الفائدة 08. 
ثم اضغط الزر 'حساب" سيقوم التطبيق بحساب القسط الشهري وإظهار النتيجة $٠٠١٠,٦۹‏ 
كمبلغ للقسط الشهري» إذا ضغطنا على الوصلة " قائمة بطالبي القروض" فسيفتح المتصفح 
صفحة جديدة فيها قائمة مسحوبة من قاعدة البيانات كما في هذه الصورة: (الصورة من 


ê Untitled Paqe - Windows Internet Explorer E EES 
م‎ : + |# | http:fflocalhost:44389/chap20/InstructorLoans,as px + | + د‎ >| 
ر‎ Pp ٍ Pp 


Filê Edit Wie Favorite: Tool: Help 


YF @ Untitled Page 7” E 7 @ ~ Page ” OF Tools > @> 


The following grid shows instructors who want loans and their contact phone numbers: 


Instructor PhoneNumber 


Delamarco, Stefan 3105551234 


McKay, Yvonne 3105556543 


Barr, Adam 3105551 
Wilson, Dan 3105550088 
Burke, Brian 31055557 


Oviatt, Lori 
Dyck, Shelley 3605551111 
Halvorson, Michael 206555444 
Halvorson, Kim 01234567890 


Done O Internet | Protected Mode: On FOU wr 


رائع جدا حيث قام تطبيق الإنترنت بعرض محتويات جدول في قاعدة البيانات» وسيحدث 
هذا في حالة تم رفع تطبيق الإنترنت إلى (خادم الإنترنت) السيرفر الذي يعمل على ويندوز 
ويدعم ال 45۶.٤۲‏ نستطيع تعديل بعض خيارات الجدول أعلاہ لنسمح بترتيب 
البيانات 50۲٤14‏ وكذلك بتصفح البيانات في صفحات إذا كانت قاعدة البيانات كبيرة 


رفا من الغا اك 
۲ التمرين موجود في المرفق رقم (١‏ ۰. 


خطوة إضافية للأمام: كتابة عنوان لصفحة الإنترنت ليظهر في المتصفح 


قد تكون لاحظت خلال فترة تنفيذ تطبيق الإنترنت الأول الذي قمت بتصميمه بالإعتماد على 
في هذه الصورة: 


Î Untitled Page - Windows Internet Explorer EET 


+ 0 
اتسن 3 


File Edit Wie Favorite: Tools: Help 


# | httpfloacalhost:49384fchap20InstructorLoans,aspx 5 | | کک‎ | | 2 + 


F HF E Untitled Page m7 OE 7” @ ~ Page ~ f Tool: > @” 


فالعنوان في الصورة هو عوه۴ ١اا‏ لاء ولتعديل العنوان نقوم بتعديل الخاصية ع|احآً۲ للكائن 
cumentط‏ التابع للصفحة» ففي حالة الصفحة ×مكه.))ناه؟ع0 وإذا كانت مفتوحة في المصمم 
نذهب إلى قائمة الخصائص ۴۲٠6۲۴5‏ ونفتح القائمة المنسدلة في الخصائص ونختار المكون 
Document‏ كما في هذہ الصورة: 


Properties 


DALUMENT 
btnLalculate 5ysterm, Web, U1, WebZontrols, Butta 
form1 =FOREMz= 

IblAmount 54sterm, Web, U1, WebZontrals, Label 
IblInterest System, web, I1, WwebControls, Label 
IbIPayment 54sterm, Web, UL, WebZontrals, Label 
InkHelp 5y4stern, Web, II, WebContrals, HyperLink. 
trtAmount 54stem, Web, UT. WebZontrols, TextBon 
txtInterest 54sterm, Web, L1, WebZontrols, TextBo 
txEPayment 5ystem. Web. IL, WebZontrals, TextEd 


(Id) 


نختار الكائن 00٥16١٤‏ من القائمة ثم نقوم بتعديل الخاصية ه|)آ۲ التابعة له إلى "تطبيق 
حساب أقساط القروض ٠"‏ بعد تنفيذ التطبيق سيظهر عنوان الصفحة في متصفح الإنترنت بنفس 
العنوان. 

لف مبروك لقد قمت بإكمال قراءة كتاب 'فيجوال بيسك ۲٠٠۸‏ خطوة خطوة'» أنت الآن جاهز 
للتحدي الكبير في برمجة تطبيقات الويندوز وتطبيقات الويب لا تتوقف لا تخاف انطلق لميدان 
التحدي وليس الفتى من قال كان أبي» فهذا الكتاب يضعك في أول درجة في لم الفيجوال بيسك 


ولابد من مشاريع تطبيقيه لتتعلم أكثر» بعد خلاصة الفصل الأخير ستجد عناوين لبعض مواقع 
الإنترنت إذا أردت تنمية قدراتك في برمجة الفيجوال بيسك واعلم بأنك إذا قرأت كل مراجع الكرة 
الأرضية في الفيجوال بيسك بدون تطبيق وعمل وتتفيذ للأفكار البرمجية فلن تستفيد ولن تتغير 
وكأنك يا زيد ما غزيت» فلابد للمتعلم من تطبيق لما تعلمه فابداً الآن في تصميم برامجك بالفيجوال 
بيسك وقم بتصميم برامج حسب الطلب لأصدقائك لتتعلم أكثر وتستفيد. يمكنك البداية بمساعدة 


الآخرين في منتدى فيجوال بيسك للعرب والفريق العربي للبرمجة ثم الانتقال إلى تصميم البرامج 
حسب الطلب ولو مجانا أو بمبالغ زهيدة ثم ستكتشف نفسك أو بالأصح سيكتشفك المجتمع بأنك 


مبرمج موهوب ومطور محترف من الدرجة الأولى» حينها لا تنتظر قم بنشر برامجك وتطبيقاتك 
وقم بتسويقها و ...و والذي هو ليس موضوع الكتاب. 


خلاصة الفصل الأخير 

من اجل أن قم بالتالي 

إنشاء موقع ب ۸5۴ | من قائمة آ۴ نختار عاك "۴W W۷6١‏ ومن النافذة التي تظهر نختار 
التنقل بين التصميم تحت صفحة التصميم نختار 501۲٤٥٥‏ لعرض الكود أو ۸ء06 لعرض 
وأكواد التصميم للصفحة | التصميم. 

كتابة نص في صفحة ‏ _ في صفحة التصميم ١1ء0‏ نقوم بكتابة النص مباشرة. 

الإنترنت 
تغذبل التضن في صفحة التصميم 0٥51١‏ نظلل النص المراد تعديله ثم نقوم بتكبيره أو 
تصغيره أو إمالة النص أو غير ذلك من التعديلات. 


مشاهده أكواد ال نختار 501۲٤٣۵‏ لعرض الكود» والذي يظهر لنا كود ال ا۸ 1۲. 
H3‏ للصفحة 


تغيير اسم الكائن 
الطبيعي لأي كائن 
التأكد من البيانات 


المدخلة من المستخدم 


تتفيذ تطبيق الإنترنت 


إضافة صفحة HTML‏ 
إلى تطبيق الويب 
اا ا 
ا 
اا ا 
ا 


الإنترنت 


نذهب بمؤشر الإدخال (وهو المؤشر الذي يظهر في عند نهاية الكتابة) إلى 


المكان الذي نريد إضافة الكائن ثم النقر مرتين على الكائن. 


ننقر مرتين على الكائن في منطقة التصميم ونكتب الكود. 


في صندوق الأدوات وتحت القائمة 10١‏ 42ا۷ يوجد العديد من الكائنات 
التي تساعدنا في فحص مدخلات المستخدم. 

بالضغط على ۴5 كما هو الحال في تطبيقات الويندوز» وستقوم بيئة التطوير 
بتع الصفجة في متضفح ا لإنترنت: 

HTML Page ڙرlتخi‎ pۃi‎ Add New Item رlتخi‎ Web site ةnئl من‎ 
ثم نقوم بتصميم الصفحة بالشكل المطلوب.‎ 

نضيف الكائن ١٣‏ ا۲عم1 إلى الصفحة الرئيسية ثم نعدل الخاصية 


iat‏ لنربط الكائن بالصفحة التي نريد. 


نضيف المكون GridView‏ إلى الصفحة تم نقوم بالربط مع قاعدة البيانات 
من خلال خيارات الكائن 6۲۵۷1٥6W‏ من خلال السهر الصغير أعلى يسار 
الكائن 6۲۲4۷1٥ W‏ تم ربط الكائن بالحقول المرادة من قاعدة البيانات. 


عند تصميم الصفحة نذهب إلى نافذة الخصائص ؟۴ ٥م٠۴۲‏ ونختار 


المكون "٥٣١‏ اه0 ونعدل الخاصية ١)٥‏ له على العنوان الذي نريد. 


إلى أين تذهب لتتعلم أكثر عن الفيجوال بيسك ٠٠٠۸‏ 
بحسب المؤلف لقد غطى هذا الكتاب العديد من المراحل التعليمية للفيجوال بيسك ۲٠٠۸‏ مبتدئ 
متوسط أو متقدم» لقد زرع في نفسك التقة بأنك مبرمج تطبيقات الويندوز» لقد تعلمت العديد من 
التقنيات البرمجية الخاصة بالبرمجة بشكل عام وبفيجوال بيسك بشكل خاص» إذا أردت الاحتراف 
أكثر في الفيجوال بيسك والبرمجة فاستفد هذه المواقع: 
مواقع خاصة بالفيجوال بيسك 
بالنسبة للمواقع العربية المتخصصة فيمكنك البدء بالموقعين المشهورين -١‏ فيجوال بيسك للعرب 
http://w .vb4arab. com‏ و ۲- الفريق العربي للبرمجة 
com‏ .2000 ttp://WWW.arabteamط»‏ هناك العديد من المواقع العربية الأخرى لكن 
الموقعين أعلاه هما نجوم السماء العربية في تعليم البرمجة. 
إذا أردت البحث عبر مواقع البحث فاستخدم المصطlحlت:‏ 9 Visual Basic yÎ Visual Basic‏ 
8 أو كهء0۲. أما المواقع المتخصصة فمنها: 

msdn2.microsoft.com/en-us/vbasic/ 
وهو موقع مقدم من مايكروسوفت لتعليم الفيجوال بيسك» ويعتبر أفضل موقع على الإطلاق فيما‎ 
يتعلق بلغة البرمجة فيجوال بيسك» يعرض هذا الموقع تعليمات وأخبار عن لغة البرمجة وكذلك‎ 
تحدیتات ودعم وغیره.‎ 

WWW. devx.com 

موقع تجاري يتعلق ببرمجة تطبيقات الويندوز وأيضا لغة الفيجوال بيسك» أيضا فيه العديد من 
المقالات والمقارنات بيت لغات البرمجة المختلفة مثل الجافاً والقوت نت. 

WWW. microsoft.com/learning/ books/ 
هذه الصفحة تعرض لذا أحدث الكتب التعليمية في لغات البرمجة التابعة لمايكروسوفت.‎ 


WWW. microsoft.com/learning/training/ 


تعليمي تابع لمایكروسوفت. 
هناك أيضاً الموقعين المميزين ولكنهما باللغة الإنجليزية: 
http://www. planet-source-code.com/‏ 
http://www.codeproject.com/‏ 


بالتوفيق للجميع. 
إذا كان لديك أية ملاحظة فالرجاء إرسالها على البريد vbdotnet2008sbs @gmail.com‏ 
مروان | لمفلحي چ صنعاء 


/http://marwanvb. blogspض0t.°CO0M‎ :aيجمnربll المدونة‎ 


